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IDENTIFICATION 
PRODUCT CODE: AC-9447H-MC 
PRODUCT TITLE: CZTUAHO TMO2-TU16/TE16 RELIAB 
DATE CREATED: JUNE 1978 
MAINTAINER: DIAGNOSTIC GROUP 
AUTHOR: R.B. BARNES 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 


NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EwUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS C° SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1974,1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORORATON 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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ABSTRACT 


THIS PROGRAM IS DESIGNED TO BE USED BY AN EXPERIENCED ENGINEER 
/TECHNICIAN FOR EVALUATION AND DEBUGGING OF MAG TAPE DRIVES. 
THE PROGRAM IS CAPABLE OF EXERCISING ANY TAPE DRIVE THAT CAN 
BE OPERATED ON A MASSBUS THROUGH THE TMO2 MAG TAPE 


CONTROLLER. ANY TYPE OF TAPE DRIVE; NRZI,PE,7 OR 9 TRACK MAY BE USED. 


ANY NUMBER OF DRIVES, SINGLE OR MULTIDRIVE SYSTEMS, UP TO EIGHT 
(8), MAY BE TESTED BY A SINGLE EXECUTION OF THE PROGRAM. THIS 
FLEXIBILITY IS POSSIBLE BECAUSE THE PROGRAM HAS NO FIXED PARAMETERS 
OR TESTING SEQUENCE. THE ENTIRE TEST PLAN, INCLUDING PARAMETERS 
AND OPERATING SEQUENCE, IS DETERMINED BY THE OPERATOR THROUGH 
RESPONSES TO TELETYPE REQUESTS AND SETTING OF CONSOLE SWITCHES. 


THE PROGRAM PROVIDES FOR TESTING OF ALL TAPE DRIVE FUNCTIONS 
SUCH AS WRITING,READING,REWINDING, TAPE POSITIONING,EOT - BOT 
SENSING AND ASSUMES A GOOD RH AND TMO2. 


HOWEVER; THE RH AND TMO2 ARE TESTED SOMEWHAT INTRINSICALLY 
DURING THE TEST CYCLE IN ORDER TO PROVIDE FULL INFORMATION ABOUT 
ANY ERROR CONDITIONS DETECTED. 


DURING A TEST CYCLE, CHECKS ARE MADE FOR STATUS ERRORS,DATA ERRORS, 
POSITION ERRORS ,WORD COUNT AND CURRENT MEMORY ADDRESS ERRORS 
WHEREVER APPLICABLE AS DETECTED BY THE RH OR TMO2. 


REQUIREMENTS (HARDWARE) 


- ANY PDP-11 PROCESSOR - WITH OR WITHOUT HARDWARE SWITCH REGISTER 
- 8K OF CORE 

- TELETYPE 

- TMO2 TAPE CONTROLLER 

- 1 TO 8 MAG TAPE DRIVES 

- MASSBUS CONTROLLER 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY TAPES 


SEQ 0003 
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STARTING PROCEDURE 


THERE ARE FOUR (4) STARTING ADDRESSES THAT MAY BE USED: 


A. 200(8): 


B. 204(8): 


C. 210(8): 


D. 240(8): 


E. 300(8): 


THIS ADDRESS MUST BE USED ON INITIAL START FROM 
LOAD AS ALL PARAMETERS ARE ENTERED FROM HERE. 
REQUESTS ARE PRINTED ON THE TELETYPE FOR ENTRY OF 
RH STARTING ADDRESS, VECTOR ADDRESS, DRIVE NUMBER(TMO2 ADDRESS), 
SLAVE NUMBER, DENSITY,PARITY,FORMAT,RECORD COUNT,CHARACTER 
COUNT,PATTERN NUMBER,TAPE MARK AND STALL FOR READ,WRITE, 
AND TURNAROUND. ALL REPONSES SHOULD BE MADE IN 
OCTAL AND WITHIN THE LIMITS OF THE PARAMETER. 
A QUESTION MARK (?) WILL BE TYPED IF ANY 
CHARACTER ENTERED IS NOT BETWEEN 0 THRU 7 (OCTAL). 
THE CHARACTER MAY BE RETYPED FOLLOWING THE QUESTION 
MARK. IF THE RESPONSE IS NOT WITHIN ITS LIMITS. A 
QUESTION MARK (?) IS TYPED AND THE ENTIRE RESPONSE 
MAY BE RENTERED. SOME RESPONSES REQUIRE MORE THAN ONE 
(1) CHARACTER, BUT NONE REQUIRES MORE THAN SIX (6). 
RESPONSES OF MORE THAN ONE CHARACTER NEED NOT HAVE 
LEADING ZEROS AND SHOULD BE TERMINATED BY A CARRIAGE 
aoe , LESS THAN THE MAXIMUM NUMBER OF CHARACTERS 

IN U . 


THIS ADDRESS SHOULD BE USED ANYTIME A RESTART 

OF THE PROGRAM IS NECESSARY AND THE PARAMETERS 
ENTERED AT THE INITIAL START OF 200(8) NEED NOT 

BE CHANGED. ALSO NOTE THAT ANY DATA PATTERN WHICH 
HAD BEEN GENERATED BY SETTING THE RANDOM DATA 

SWITCH (CONSOLE SWITCH EIGHT) WILL NOT BE OVERWRITTEN 
AND THERFORE IS HELD IN CORE FOR USE UNTIL 


CONSOLE SWITCH EIGHT(8) IS AGAIN SET AND THAT ALL STATISTICS WILL BE RETAINED. 


THIS ADDRESS IS THE SAME AS USING 204(8) IN THAT THE 

PREVIOUSLY SET PARAMETERS ARE USED; HOWEVER, THE DATA 

PATTERN IS RETURNED TO THE FIXED PATTERN ORIGINALLY 

CALLED FOR AT THE 200(8) START AND ALL STATISTICS ARE CLEARED TO ZERO. 


THIS IS A SPECIAL ADDRESS WHICH WILL CAUSE THE 
PROGRAM TO EXECUTE A PREDETERMINED TEST PLAN ON 
ALL AVAILABLE DRIVES AND SLAVES. THE ONLY INPUT 
REQUIRED BY THE OPERATOR IS A RESPONSE TO 

REQUESTS FOR THE RH ADDRESS, VECTOR ADDRESS, 
CONTINUOUS OPERATION OF THE SEQUENCE, AND NRZ ONLY. 
SEE ALSO SECTION 11 FOR DETAILS. 


THIS ADDRESS IS TO BE USED AS A RESTART ONLY 

AND WILL PERFORM JUST AS IN 200(8) EXCEPT THAT 
THE PARAMETER INPUT LIST IS SHORTENED. THE SHORT 
PARAMETER LIST CONSISTS OF DRIVE NUMBER, SLAVE 
NUMBER, DENSITY, PARITY, FORMAT, RECORD COUNT, 
CHARACTER COUNT, PATTERN, TAPE MARK, AND 
INTERCHANGE READ. 


SEQ 0004 
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THE FOLLOWING IS AN EXPLANATION OF THE INITIAL 
START (200 OCTAL) REQUESTS AND RESPONSES: 


REGISTER START: THE RESPONSE REQUIRED FOR THIS REQUEST 
IS TO ENTER THE ADDRESS OF THE FIRST RH 
REGISTER (CS1) AS A SIX DIGIT UNIBUS ADDRESS. 


VECTOR ADDRESS: THE RESPONSE FOR THIS REQUEST 
IS TO ENTER THE INTERRUPT VECTOR ADDRESS 
USED BY THE RH AS A THREE (3) DIGIT ADDRESS. 


DRIVE NUMBER: THE DRIVE NUMBER (MASSBUS ADDRESS 
OF THE TMO2) IS ENTERED AS ONE (1) 
OCTAL CHARACTER AND “UST BE WITHIN THE LIMITS 
OF 0 THROUGH 7. 


SLAVE NUMBER: THE SLAVE NUMBER IS ENTERED AS ONE 
(1) OCTAL CHARACTER AND MUST BE 
WITHIN THE LIMITS OF 0 THROUGH 7. 
WHEN THE SLAVE NUMBER HAS BEEN 
ENTERED AND IS LEGAL, THE PROGRAM TESTS 
FOR THE PRESENCE OF A SLAVE OF THAT 
NUMBER. IF THE SLAVE IS AVAILABLE 
A PRINTOUT OF 7 CHANNEL, IF APPLICABLE, 
AND ITS SERIAL NUMBER (IN BCD) 
WILL BE MADE TO ASSIST THE OPERATOR 
IN SETTING OF DENSITY, PARITY, AND FORMAT. 
A CHECK IS MADE FOR THE PROPER SETTING 
OF THE DRIVE TYPE REGISTER; IF WRONG, A 
MESSAGE IS PRINTED FOR INFORMATION ONLY. 
IF THE SLAVE IS NOT AVAILABLE, 
A MESSAGE STATING SO WILL BE 
PRINTED AND A NEW SLAVE NUMBER 
REQUEST WILL BE ISSUED. WHEN A 
GOOD SLAVE NUMBER HAS BEEN ENTERED, 
REQUESTS FOR OPERATING DENSITY 
PARITY AND FORMAT ARE MADE FOR THAT 
SLAVE AND SHOULD BE RESPONDED TO 
ACCORDING TO THAT PARITICULAR SLAVE'S 
NEEDS. AS MANY AS EIGHT (8) SLAVE 
NUMBER REQUESTS MAY BE USED, HOW- 
EVER, AT LEAST ONE MUST BE USED. 
THE SLAVE NUMBERS AND THEIR RESPECTIVE 
DENSITY, PARITY AND FORMAT MAY BE ENTERED 
IN ANY ORDER. THE INFORMATION FOR 
EACH SLAVE ENTERED IS LOADED INTO A 
TABLE FOR REFERENCE IN TESTING. 
IF LESS THAN EIGHT(8) SLAVES ARE 
REQUIRED, THEN RESPONDING TO THE 
SLAVE NUMBER REQUEST WITH A CARRIAGE 
RETURN WILL TERMINATE THE SLAVE 
ENTRIES AND CONTINUE TO THE NEXT 
PARAMETER. IT SHOULD BE REMEMBERED 
THAT AT LEAST ONE SLAVE NUMBER REQUEST 
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DENSITY: 


PARITY: 


FORMAT: 


RECORD COUNT: 


CHARACTER COUNT: 
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MUST BE ENTERED. IF THE FIRST 
REQUEST IS RESPONDED TO BY A CARRIAGE 
RETURN, THEN THE REQUEST WILL BE REPEATED. 


THE DESITY REQUEST IS RESPONDED TO BY ONE (1) OCTAL 
CHARACTER AND MUST BE WITHIN THE LIMITS OF O THRU 4. 
AS EACH SLAVE NUMBER IS ENTERED, A REQUEST FOR THE 
OPERATING DENSITY FOR THAT SLAVE IS TYPED. THE 
RESPONSE MEANINGS ARE AS FOLLOWING: 


200BPI1, NRZ1 
S56BPI, NRZI 
800BPI, NRZI 
800BPI, NRZI 
1600BPI1, PE (9 CHANNEL ONLY) 


THE PARITY REQUEST IS RESPONDED TO BY ONE (1) 
OCTAL CHARACTER AND MUST BE EITHER O OR 1. 


A. 1 = EVEN PARITY 
B. 0 = ODD PARITY 


THE FORMAT REQUEST IS RESPONDED 
TO BY TWO (2) CHARACTERS 
AND SHOULD BE AS FOLLOWS 


A. 14 = 9 CHANNEL NORMAL (TWO FRAMES PER WORD) 
B. 15 = CORE DUMP (FOUR FRAMES PER WORD) 


THIS REQUEST IS RESPONDED TO BY A SIX (6) CHARACTER 
OCTAL NUMBER FROM 1 TO 177777. REMEMBER LEADING 
ZEROS ARE NOT REQUIRED AND IF LESS THAN SIX 
CHARACTERS ARE ENTERED, A CARRIAGE RETURN 

WILL TERMINATE THE RESPONSE. THE RECORD COUNT 

IS USED IN CONJUCTION WITH THE CHARACTER COUNT 

TO ESTABLISH A BLOCKING FACTOR FOR USE IN READ OR 
WRITE CYCLES. 


THIS RESPONSE IS ENTERED AS FOUR (4) OCTAL 
CHARACTERS WITHIN THE LIMITS OF 20 THRU 4000. AGAIN 
LEADING ZEROS ARE NOT REQUIRED AND A CARRIAGE 
RETURN TERMINATES A LESS THAN FOUR (4) CHARACTER 
RESPONSE. THE CHARACTER COUNT IN CONJUNCTION 
WITH THE RECORD COUNT IS USED TO ESTABLISH 
THE BLOCK SIZE (CHARACTERS PER RECORD, AND 
RECORDS PER BLOCK) USED IN READ AND WRITE CYCLES 
THE SAME BLOCKING IS USED ON ALL AVAILABLE UNITS. 


SEQ 0006 
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PATTERN NUMBER: THIS RESPONSE IS A TWO (2) CHARACTER OCTAL 
NUMBER WITHIN THE LIMITS OF O THRU 15(8). 
THE NUMBER ENTERED WILL CAUSE A SPECIFIC DATA 
PATTERN TO BE USED FOR ALL READING AND WRITING. THIS 
DATA PATTERN IS NOT CHANGED UNLESS RANDOM DATA 
IS REQUESTED BY SETTING CONSOLE SWITCH EIGHT (8) 
TO A ONE. RESETTING OF THE RANDOM DATA SWITCH 
DOES NOT CAUSE REVERSION TO THE FIXED PATTERN, 
BUT WILL HOLD THE LAST GENERATED PATTERN UNTIL 


A RESTART IS DONE FROM LOCATION 200(8), 210(8), OR 300(8). 


WHEN OPERATING IN NRZ MODE (DENSITY 0-3) 

THE PROGRAM CONSTRUCTS AND SAVES 

BOTH AN EXPECTED CRC CHARACTER AND AN 

LRC CHARACTER FOR COMPARISONS WITH 

THE HARDWARE GENERATED CHECK CHARACTER 

IN BOTH READ AND WRITE. 

THE SELECTION OF DATA PATTERN ZERO (0) HAS A 
SPECIAL USE. PATTERN NUMBER ZERO (0) WILL 
CAUSE TO BE READ IN AT THE HIGH SPEED PAPER 
TAPE READER ANY DATA PATTERN DESIRED. 

THE EXTERNAL INPUT DATA THOUGH THE READER 

IS DONE BY PREPARING A PAPER TAPE WITH A PROGRAM 
CALLED DTC. (MAINDEC-11-DZTUF-A-D) ANY CONFIGURATION 
OF BITS AND CHARACTERS MAY BE USED AND A LIMIT 
OF 377(8) CHARATERS IS IMPOSED. WHEN EXTERNAL 
DATA IS INPUT, THE ENTIRE WRITE BUFFER IN 

CORE IS FILLED WITH THE PATTERN SO THAT ANY 
SIZE RECORD MAY BE USED. DATA PATTERN 

PATTERN ZERO (0) EXTERNAL PAPER TAPE NEED ONLY 
BE READ ONCE AT INITIAL START OF 200(8), AND 
NEED NOT BE READ AGAIN UNLESS OVERWRITTEN BY 
RANDOM DATA. BE SURE TO LOAD THE READER 

BEFORE PRESSING START. 


TAPE MARK: THE TAPE MARK REQUEST IS USED TO DETERMINE 
IF THE OPERATOR WISHES TO HAVE EACH 
DATA BLOCK SEPERATED BY A TAPE MARK. IF 
RESPONDED TO BY A ONE (1) THE TAPE MARK 
WILL BE WRITTEN AND WHEN READING WILL 
BE EXPECTED AT THE END OF DATA BLOCK. 
A ZERO (0) RESPONSE WILL DISALLOW TAPE 
MARK. PLEASE NOTE THAT THE TAPE MARK 
RECORD INCREASES THE BLOCK SIZE BY ONE (1) 
RECORD; IN OTHER WORDS, A BLOCK OF 100 
RECORDS WILL HAVE THE TAPE MARK AS RECORD 101. 


INTERCHANGE READ: THIS REQUEST IS RESPONDED TO BY 
A SINGLE CHARACTER INPUT OF EITHER 
ONE (1) OR ZERO (0). A RESPONSE OF ONE (1) 
WILL CAUSE ALL READING TO BE DONE IN 
THE INTERCHANGE MODE. A ZERO RESPONSE 
WILL CAUSE READING IN NORMAL MODE. 


SEQ 0007 
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SINGLE PASS: THIS REQUEST IS RESPONDED TO BY EITHER A ONE (1) 
OR A ZERO (0). RESPONSE OF 1, WILL CAUSE THE TEST 
TO BE STOPPED AFTER THE LAST AVAILABLE DRIVE 
REACHES END OF TAPE. A RESPONSE OF 0, WILL 
ALLOW CONTINUOUS RUNNING THROUGH MULTIPLE PASSES. 
TO RESTART AT END OF PASS, PRESS CONTINUE, OR 
RESTART AT THE CONSOLE. 


STALLS: THE STALL REQUESTS ARE RESPONDED TO BY A SIX (6) 
CHARACTER OCTAL NUMBER WITHIN THE LIMITS OF 1 
THRU 177777. LEADING ZEROS ARE NOT REQUIRED AND 
AN ENTRY OF LESS THAN SIX (6) CHARACTERS SHOULD 
BE TERMINATED BY A CARRIAGE RETURN. EACH INCREMENT 
OF THE VALUE ADDS ABOUT 2.6 MICSEC TO THE DELAY. 


READ: THE TIME DELAY BETWEEN EACH RECORD READ 
WRITE: THE TIME DELAY BETWEEN EACH RECORD WRITTEN 


TURN AROUND: TIME DELAY BETWEEN CHANGES OF 
TAPE DIRECTION (FORWARD,TO REVERSE,ETC.) 
AND BETWEEN BLOCKS. 


FIXED PARAMETERS: IT SHOULD BE NOTED THAT ALL PARAMTERS EXCEPT 
FOR THE SLAVE DESCRIPTION VALUES (SLAVE 
NUMBER, DENSITY, PARITY, AND FORMAT) HAVE NOMINAL 
VALUES ALREADY STORED IN THE PROGRAM. 
AS EACH PARAMETER REQUEST (PATTERN NUMBER, RECORD 
COUNT, CHARACTER COUNT, TAPE MARK AND STALLS) IS TYPED. 
ITS PRESENT STORED VALUE IS ALSO PRINTED. 
IF THESE VALUES NEED NOT BE CHANGED, SIMPLY 
TYPE A CARRIAGE RETURN AS RESPONSE AND NO 
CHANGE WILL BE MADE. EACH START OF THE PROGRAM 
AT 200(8) WILL SHOW THE CURRENT VALUES OF THESE 
PARAMETERS AS PER THE LAST ENTRY. WHEN A 
FRESH LOAD OF THE PAPER TAPE IS DONE, THE 
PARAMETERS WILL REFLECT THE FIXED VALUES STORED 
IN THE PROGRAM. 


RECORD COUNT = 100 
CHARACTER COUNT = 200 
PATTERN NUMBER = 1 


TM=0 

INTERCHANGE READ = 
SINGLE PASS = 0 

READ STALL = 1 

WRITE STALL = 1 

TURN AROUND STALL = 1 


—=Zxca mMnooewW > 
o 
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SAMPLE START AT 200(8): 


THE FOLLOWING IS A SAMPLE OF THE 

PRINTED REQUESTS AND THEIR RESPONSES. 
RESPONSES ARE ENCLOSED IN PARENS FOR 
CLARITY ONLY AND (CR) MEANS CARRIAGE RETURN 


LOAD ADDRESS 200(8), SET CONSOLE SWITCHES, PRESS START SWITCH: 


wee SWR=XXXXXX NEW= WILL BE TYPED FIRST IF THE SOFTWARE 

REGISTER IS SELECTED(REFER TO SECTION 8 FOR OPERATOR OPTIONS). 
TU16 TAPE DRIVE TEST 
ENTER CONDITIONS IN OCTAL 


REGISTER START=172440(172440) 
VECTOR ADDRESS=224(CR) 

DRIVE NUMBER (4) 

SLAVE NUMBER=(5) SN: 5009 
DENSITY=(3) 

PARITY=(0) 

FORMAT=(14) 

SLAVE NUMBER=(2) 7 CHAN SN: 0022 
DENSITY=(2) 

PARITY=(1) 

FORMAT=(15) 

SLAVE NUMBER=(CR) 


RECORD COUNT=100 (500) (CR) 
CHARACTER COUNT=200 (38)?(7) (CR) 
PATTERN NUMBER=1 (22) 


(6) (CR) 

TM=(0) 

INTERCHANGE READ=(1) 
SINGLE PASS=(0) 


ENTER STALLS 

READ=1 (CR) 

WRITE=1 (CR) 

TURN AROUND=1 (3000) (CR) 


THE PROGRAM WILL NOW PERFORM THE TEST CYCLE SET IN 

THE CONSOLE SWITCHES ON SLAVE FIVE (5) THEN TWO (2), 

ONE BLOCK ON EACH UNIT PER CYCLE, USING DATA PATTERN 
NUMBER SIX (6) WITH A BLOCKING FACTOR OF 37 CHARACTERS 
PER RECORD AND 500 RECORDS PER BLOCK. THE DELAYS ARE SET 
FOR MINIMUM ON READ AND WRITE, AND APPROXIMATELY .75 
SECONDS ON TURN AROUND. 


NO TAPE MARKS WILL BE WRITTEN AND ALL READING 
WILL BE DONE IN INTERCHANGE MODE (MAINT MODE 0001). 
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4.1 AUTOMATIC MODE OPERATION 


IF THE PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODE THE AUTO 
ACCEPT SEQUENCE TEST PLAN IS RUN (SEE SEC 11); THE SOFTWARE SWITCH 

REGISTER IS INVOKED WITH A SWITCH SETTING OF 100000 (HALT ON ERROR 

SET). NO OPERATOR INTERVENTION IS REQUIRED. 


** EXCEPTION: IF LOADED VIA TMDP CHAIN MODE THE PROGRAM WILL NOT TEST 
SLAVE 0 ON THE FIRST AVAILABLE DRIVE. 


5. DATA PATTERNS 


THERE ARE FIFTEEN DATA PATTERN GENERATORS STORED IN CORE 
AND ANY ONE OF THESE MAY BE SELECTED. THE ONE UNIQUE 
CASE IS PATTERN ZERO(O); SELECTION OF PATTERN ZERO(O) 
REQUIRES THAT A PREVIOUSLY PREPARED PAPER TAPE BE 
ENTERED AT THE HIGH SPEED READER. THIS TAPE CONTAINS 

A DATA PATTERN OF NO MORE THAN 377 OCTAL 

CHARACTERS. THE FIRST CHARACTER READ IN IS THE 

NUMBER OF ACTUAL DATA CHARACTERS THAT ARE CONTAINED 

ON THE TAPE. EACH DATA CHARACTER MAY BE ANY 

COMBINATION OF BITS AND WILL BE LOADED INTO CORE 

AS THEY APPEAR ON THE TAPE. NO MATTER HOW MANY 
CHARACTERS ARE ON TAPE, THE ENTIRE WRITE BUFFER — CHARACTERS) 
WILL BE FILLED WITH THE PATTERN ENTERED SO THAT A 

SIZE RECORD CAN BE USED. (SEE DTC MAINDEC- 11-DZTUF-A-D) 
THE PROGRAM GENERATES A CYLIC REDUNDENCY CHECK 

CHARACTER (CRC) AND A LONGITUDINAL REDUNDENCY CHECK 
CHARACTER (LRC) FOR COMPARISONS AGAINST THE CRC AfeD LRC 
GENERATED BY THE HARDWARE IN NRZI READS OR WRITES. 


THE FOLLOWING IS A LIST OF THE DATA PATTERNS AVAILABLE: 


DATAO: EXTERNAL INPUT THRU HIGH SPEED READER (SEE DTC) 

DATA1: ALL ONE BITS IN ALL CHARACTERS 

DATA2: ALL ZERO BITS IN ALL CHARACTERS 

DATAS: A ONE BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ZEROS 
DATAS: A ZERO BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ONES. 
DATA5: ALTERNATING ONE AND ZERO BITS IN EACH CHARACTER 

DATA6: ALTERNATING ZERO AND ONE BITS IN EACH CHARACTER 

DATA7: SAME AS DATAS BUT WITH EVERY OTHER CHARACTER COMPLEMENTED 
DATA10: WALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 

DATA11: INCREMENTING CHARACTERS (000-377) 

DATA12: DECREMENTING CHARACTERS (377-000) 

DATA13: ALTERNATING CHARACTERS OF ALL ZERO AND ALL ONE BITS 
DATA14: WALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 

DATA15: AUTO SEQUENCE PATTERN 0,0,-1,-1,-1,0,0 
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RANDOMIZATION 


THERE ARE THREE (3) VALUES THAT MAY BE GENERATED RANDOMLY; 

DATA, CHARACTER COUNT, AND RECORD COUNT. THESE ARE NORMALLY SE? TO 
SOME FIXED VALUE BUT MAY BE RANDOMIZED BY SETTING THE APPROIATE 
CONSOLE SWITCHES. 


A. RANDOM DATA: (CONSOLE SWITCH 8) 
GENERATES AN ENTIRE BUFFER, CHARACTER BY 
CHARACTER, OF RANDOM DATA WHEN SWITCH 8 
IS SET TO A ONE. ONCE SET, THE RESETTING OF 
SWITCH 8 CAUSES THE LAST GENERATED PATTERN 
TO BE RETAINED IN CORE. A RESTART AT LOCATION 
200(8) OR 210(8) WILL CAUSE REVERSION OF THE 
DATA TO THE FIXED PATTERN REQUESTED INITIALLY. 
A RESTART AT LOCATION 204(8) WILL HOLD 
THE LAST GENERATED PATTERN IN CORE UNTIL SWITCH 
8 IS AGAIN SET. 
ALTHOUGH THE DATA IS GENERATED AS RANDOM, 
THE PROGRESSION OF RANDOM CHARACTERS IS ALWAYS 
THE SAME FROM THE OUTSET OF RANDOMIZATION. 
THEREFORE IT IS POSSIBLE TO GENERATE ONE TAPE REEL 
OF RANDOM DATA ON ONE UNIT, RESTART THE 
PROGRAM TO RE-ESTABLISH THE OUTSET POINT, AND 
READ THE RANDOM TAPE REEL ON ANOTHER UNIT 
FOR COMPATABILITY TESTING. IN MULTIDRIVE SYSTEMS THE SAME 
BLOCK OF DATA, WHETHER RANDOM OR FIXED, IS 
WRITTEN OR READ ON EACH AVAILABLE UNIT IN THE 
ORDER THAT THEY WERE ENTERED, BEFORE BEING CHANGED. 


RANDOM CHARACTER COUNT: (CONSOLE SWITCH 7) 
GENERATES A DIFFERENT NUMBER OF CHARACTERS 
PER RECORD TO BE WRITTEN ON EACH BLOCK CYCLE. 
THE SAME NUMBER OF CHARACTERS PER RECORD IS 
WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
BEING CHANGED. RESETTING SWITCH 7 HOLDS THE 
LAST VALUE GENERATED. 


RANDOM RECORD COUNT: (CONSOLE SWITCH 6) 

GENERATES A DIFFERENT NUMBER OF RECORDS 

FOR EACH BLOCK OF DATA WRITTEN OR READ ON 

EACH BLOCK CYCLE. THE SAME NUMBER OF RECORDS 

IS WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
be A pp RESETTING SWITCH 6 HOLDS LAST VALUE 
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- DYNAMIC PARAMETERS: 


THE THREE (3) STALL VALUES ARE CONSIDERED TO BE DYNAMIC 
PARAMETERS AS THEY MAY BE CHANGED WHILE THE PROGRAM IS 
RUNNING BY TYPING A CONTROL C CHARACTER AT THE TELETYPE. 

AS SOON AS THE BUS IS RELEASED BY THE MAG TAPE OPERATION 

IN PROGRESS, THE PROGRAM WILL RESPOND TO THE CONTROL C INPUT 
BY TYPING A REQUEST FOR NEW STALL PARAMETERS. THE LAST VALUES 
THAT WERE ENTERED WILL BE PRINTED AS THE STORED VALUES AND MAY 
BE CHANGED BY ENTERING NEW VALUES OR LEFT UNCHANGED BY 

TYPING A CARRIAGE RETURN. 

THE YOZZLE STALL IS ALSO DYNAMIL AND CAN BE CHANGED 

BY TYPING A CNTRL C WHILE DOING A YOZZLE. A YOZZLE STALL 
REQUEST WILL BE PRINTED AND SHOULD BE RESPONDED TO WITH 

THE DESIRED VALUE. 
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CONSOLE SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 

THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES, 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


CONTROL: 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


1) TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


A) THIS PROGRAM WILL PROCESS THE < G> EITHER IN FLAG MODE OR INTERRUPT 
DEPENDING ON WHERE IN THE PROGRAM THE < G> IS EXCEPTED. 
THE PROGRAM WILL SERVICE THE INTERRUPT ONLY WHEN THE 
PRIORTY IS LOWERED TO ALLOW THE TTY TO INTERRUPT. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE '*NEW="" HAS 7. TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE T 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

If A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 


THE CONSOLE SWITCHES ARE USED TO SET UP THE TEST CYCLE 
DESIRED, TO GENERATE RANDOM VALUES, AND TO CONTROL ERROR 
RESPONSES. THE SWITCHES SHOULD BE SET IN THE DESIRED 
MANNER BEFORE PRESSING THE START SWITCH BECAUSE THEY 

ARE ALL DYNAMIC AND WILL RUN THE PROGRAM IN ANY 
COWFIGURATION. ALL SWITCHES SET TO ZERO(O) IS NORMAL. 


W15: =STOP ON ERROR 
(100000)0= CONTINUE ON ERROR 


SW14:  JT=PRINT READ/WRITE STATISTICS 
1040000)0= DO NOT PRINT STATS 


SW13:  1=D0 NOT CHECK DATA ERRORS 


CZTUs 
CZTuUs 
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(020000)0=CHECK DATA ERRORS 


SW12:  1=D0 NOT CHECK WRITE STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
(010000)0=CHECK WRITE STATUS ERRORS 


SWi1:  1=D0 NOT CHECK READ STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
(004000)0=CHECK READ STATUS ERRORS 


W10:  1=D0 NOT PRINT ANY ERRORS (EXCEPT CATASTROPHIC ERRORS) 
1020000)0= PRINT ALL ERRORS 


SwW9: 1=REWIND ALL AVAILABLE TAPES 
(010000)0= DO NOT REWIND 


Sw8: 1=GENERATE RANDOM DATA 
(004000)0= USED FIXED DATA 


: 1=GENERATE RANDOM CHARACTER COUNT 
300200) 0-USE FIXED CHARACTER COUNT 


1=GENERATE RANDOM RECORD COUNT 
(000100) 0= USED FIXED RECORD COUNT 


SwW5: =YOZZLE ON CURRENT RECORD 
(000040)0= DO NOT YOZZLE ON RECORD 


1=D0 WRITE/READ RETRIES 
(000020)0= DO NOT RETRY 


SW3: 1=D0 NOT READ FORWARD 
7000010) 0= READ FORWARD 


SW: =DO NOT READ REVERSE 
(000004)0= READ REVERSE 


1=READ FORWARD FIRST 
1000002)0= READ REVERSE FIRST 


SwWO0: 1=D0 NOT WRITE 
(000001) 0=WRITE 
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SWITCH EXPLANATION AND EXAMPLES: 


SWO-3: THESE SWITCHES ARE USED TO CONTROL THE SEQUENCE 
OF MAG TAPE OPERATIONS PREFORMED ON EACH AVAILABLE 
UNIT. THE BLOCK OF DATA DESCRIBED THROUGH 
THE RESPONSES TO TELETYPE REQUESTS AT INITIAL START 
WILL BE EITHER WRITTEN OR READ FROM EACH AVAILABLE 
UNIT IN THE ORDER THAT THEY WERE ENTERED. THE SEQUENCE 
OF OPERATIONS IS CALLED A CYCLE, AND WILL BE PERFORMED 
CONTINUOUSLY UNTIL STOPPED BY THE OPERATOR. WHEN END 
OF TAPE IS REACHED, THE UNIT WILL BE REWOUND AND 
FLAGGED AS UNAVAILABLE FOR TEST UNTIL ALL UNITS HAVE 
REACH EOT, AT WHICH TIME TESTING IS RESUMED ON ALL 
AVAILABLE UNITS. 


EXAMPLES: 0-3 


A. SWO=0,SW1=0,SW2=1,SW3=1 
WRITE ONLY X RECORDS OF Y CHARACTERS 


SWO=0,SW1=0,SW2=1,SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD X RECORDS 


SWO=0,SW1=0,SW2=0,SW3=1 
WRITE THEN READ REVERSE X RECORDS. 


SWO=0,SW1=0,SW2=0,SW3=0 
WRITE THEN READ REVERSE AND READ FORWARD X RECORDS 


SWO=0,SW1=1,SW2=0,SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD THEN REVERSE 


SWO=1,SW1=0,SW2=1,SW3=0 
READ TAPE FORWARD X RECORDS 


SWO=1,SW1=0,SW2=0,SW3=1 
READ TAPE REVERSE X RECORDS 


SWO=1,SW1=0,SW2=0,SW3=0 
READ TAPE REVERSE THEN FORWARD 


SWO=1,SW1=1,SW2=0,SW3=0 
READ TAPE FORWARD THEN REVERSE 
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SW4: 


SwW5: 


SW6-8: 


Sw9: 
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SWITCH FOUR (4), WHEN SET TO A ONE (1), WILL 

CAUSE ANY DATA RELATED ERROR TO BE RETRIED. 

THE WRITE RETRY SCHEME CONSISTS OF REWRITING THE RECORD 
IN THE SAME SPOT ON TAPE FOUR (4) TIMES. IF 

ALL FOUR (4) REPEATS ARE SUCCESSFUL, THE 

RECORD IS CONSIDERED AS RECOVERED, AND A TAPE 
WRITE ERROR IS LOGGED. IF ANY OF THE FOUR 

(4) REPEATS IS UNSUCESSFUL, A SKIP ERASE IS 

DONE, A SUPECTED BAD TAPE SPOT IS LOGGED 

AT THIS BLOCK AND RECORD NUMBER, AND A SECOND 
RETRY OF FOUR REPEATS IS DONE. IF AFTER FOUR 

(4) RETRIES, THE RECORD CANNOT BE RECOVERED 

A NOTIFICATION 1S PRINTED, AND TESTING IS 

RESUMED ON THE NEXT RECORD. 

IF 20(8) BAD TAPE SPOTS ARE FOUND, THE 

SLAVE WILL BE REWOUND AND REMOVED FROM 

TESTING WITH AN APPROPRIATE MESSAGE PRINTED. 

THE READ RETRY SCHEME CONSISTS OF REREADING THE 
RECORD UP TO EIGHT TIMES. IF ALL EIGHT REREADS ARE 
BAD, IT IS A HARD ERROR. IF ANY REREAD IS 
SUCCESSFUL, THIS IS A SOFT ERROR. 

IF THE ORIGINAL ERROR IS OF THE NON-RETRYABLE 

TYPE (IE: ILF,RAR,ILR,NEF ,CBUSPE), THE RETRY SCHEME 
IS NOT ENTERED AND A MESSAGE IS PRINTED. 


SWITCH FIVE (5) WHEN SET DURING A READ 
FORWARD OR REVERSE WILL CAUSE THE TAPE 

TO CONTINUOUSLY READ THE CURRENT RECORD 

BY SPACING EITHER FORWARD OR REVERSE AND 
REREADING THAT RECORD. THIS TAPE MOVEMENT 
IS CALLED YOZZLING. THERE IS A SOFTWARE 
DELAY EXECUTED BETWEEN E..CH SPACE/READ 

OF THE RECORD AND IT MAY BE VARIED BY 
TYPING CONTROL C ON THE TELETYPE DURING 
THE EXECUTION OF THE YOZZLE AND RESPONDING 
TO THE PRINTED REQUEST WITH A SIX (6) 
DIGIT VALUE. THE YOZZLE STALL IS PRESET 
TO A VALUE OF 3000 IN THE PROGRAM TO 
PREVENT EXCESSIVE TAPE WEAR, BUT MAY BE 
SET TO ANY VALUE THROUGH THE TELETYPE. 


THESE THREE (3) SWITCHES CONTROL THE RANDOMIZATION 
OF DATA AND BLOCK SIZE AND MAY BE SET 

AND RESET AT ANY TIME. THE ACTUAL CHANGE 

WILL TAKE PLACE BETWEEN BLOCK CYCLES. 


SWITCH NINE (9) WHEN SET WILL CAUSE ALL 
AVAILABLE TAPE UNITS TO BE REWOUND AT 

THE END OF THE CURRENT BLOCK CYCLE. TESTING 
WILL BE RESUMED AT A BLOCK COUNT OF 

ONE (1) WHEN ALL UNITS HAVE REACHED BOT. 


SEQ 0016 


an 


E 2 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 17 SEQ 0017 
CZTUAH.P11 26-APR-78 09:51 


$W10-13: THESE SWITCHES ARE USED TO CONTROL THE 
ERROR HANDLING TO BE DONE ON THE TAPE 
OPERATION DESCRIBED BY SWITCHES 0-3. 


SWITCH TEN (10) WHEN SET TO A ONE 

WILL DISALLOW ANY ERROR PRINTOUTS MADE 

ON THE OPERATION IN PROGRESS. CATASTROPHIC 
FAILURES AND INFORMATION PRINTOUTS WILL 

STILL OCCUR. IE: UNIT NOT AVAILABLE, ILLEGAL 
BOT, DROP OR PICK OVERFLOW, AND EOT REWIND. 


SWITCH ELEVEN (11) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON READ (FORWARD OR REVERSE) OPERATIONS. 


SWITCH TWELVE (12) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON WRITE OPERATIONS. 


SWITCH THIRTEEN (13) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING OF READ 
DATA. THIS SWITCH HAS NO EFFECT ON 
STATUS CHECKING. 


**NOTE THAT WHEN SW11 OR 12 ARE SET, NOT ONLY ARE ERRORS NOT CHECKED, BUT THEY ARE NOT CLEARED EITHER. 


ste THEREFOR USE CAUTION TO ASSURE THAT OPERATIONS ARE NOT UNEXECUTED DUE TO UNCLEARED ERRORS. 
***#D0 NOT SET SW 11 OR 12 TO A ONE (1), DURING A RETRY SEQUENCE. 


SWITCH FOURTEEN (14)WHEN SET TO A ONE (1) WILL 

PRINT THE ACCUMULATED READ/WRITE STATISTICS FOR THE SELECTED 
SLAVE UNDER TEST AT THE END OF THE CURRENT BLOCK 

CYCLE. THE STATISTICS PRINTED ARE THE NUMBER OF BITS 
DROPPED OR PICKED, THE NUMBER OF RETRIES, WRITE ERRORS, 

READ ERRORS, AND DATA ERRORS. 


SWITCH FIFTEEN (15) WHEN SET TO A ONE, 

WILL CAUSE THE PROGRAM TO HALT ON ANY 

ERROR DETECTED BY THE OPERATION IN PROGRESS. 
IF BOTH SWITCH TEN (10) AND FIFTEEN (15) 

ARE SET, THE ACTUAL ERROR DETECTED WILL 

NOT BE PRINTED BUT WILL CAUSE A HALT. 

IF SWITCH TEN (10) IS RESET BEFORE PRESSING 
CONTINUE, THE ERROR WHICH CAUSED THE HALT 
WILL BE PRINTED BEFORE TESTING IS RESUMED. 


t4etePROGRAM HALTS#eeee 


**eIF THE SOFTWARE SWITCH REGISTER IS USED AND THE PROGRAM 
HALTS THEN THE OPERATOR CAN PRESS A < G> CONTROL G BEFORE HITTING 
CONTINUE. THIS WILL ALLOW THE OPERATOR TO ENTER DATA INTO 
THE SOFTWARE SWITCH REGISTER. 
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ERROR PRINTOUTS 


THERE ARE THREE TYPES OF ERROR PRINTOUTS MADE BY 

THE PROGRAM; OPERATION ERRORS, DATA ERRORS, AND CONDITION 

ERRORS. EACH ERROR MESSAGE PRINTED IS PROCEEDED BY A TWO LINE 
HEADER WHICH CONTAINS THE DRIVE NUMBER, SLAVE NUMBER, 

DENSITY, PARITY, AND FORMAT ON THE FIRST LINE, AND THE BLOCK NUMBER, 
RECORD NUMBER, RECORD SIZE, AND ERROR TYPE ON THE SECOND. 


A. OPERATION ERRORS: 


THESE ARE ERRORS WHICH CAN OCCUR AS A 
DIRECT RESULT OF A TAPE OPERATION. 


1. READ/WRITE STATUS ERRORS: THESE ARE DETECTED BY EITHER THE TMO2 
ITSELF OR BY THE MASSBUS CONTROLLER. 
ALL STATUS ERRORS WILL BE REPORTED. 


2. TAPE POSITION ERRORS: THESE ARE INDICATED BY AN INCORRECT 
SPACE OR REWIND OPERATION IN WHICH 
TAPE POSITION BECOMES UNRELIABLE. 


ERRORS: 


DATA ERRORS WILL OCCUR WHEN TAPE IS 

BEING READ AND THE DATA FROM TAPE DOES 

NOT MATCH THE EXPECTED DATA. WHEN READING 

IN THE REVERSE DIRECTION, THE RECORD NUMBERS 
WILL BE COUNTED DOWN FROM LAST TO FIRST. 

THE CHARACTER NUMBERS IN REVERSE READS WILL 
ALSO BE COUNTED DOWN IN ORDER TO REFLECT 

TAPE POSITION RATHER THAN THE ORDER TRANSFERRED. 


BECAUSE DATA RECORDS CAN BE UP TO FOUR THOUSAND 
CHARACTERS LONG, AN ERROR CONDITION WHICH WILL CAUSE 
THE ENTIRE RECORD TO READ INCORRECTLY COULD CAUSE A VERY 
LENGTHY PRINTOUT. THEREFORE, A COUNTER OF SUCCESSIVE 
BAD CHARACTERS IS EMPLOYED. IF TEN (10) CHARACTERS IN 
SUCCESSION ARE BAD, A NOTIFICATION IS PRINTED 

(BAD RECORD) AND THE NEXT TWENTY FIVE (25) CHARACTERS 
ARE SKIPPED BEFORE CHECKING IS RESUMED. IF THE 

BAD RECORD CONDITION OCCURS THREE (3) TIMES IN ONE 
RECORD, THE REST OF THE RECORD IS SKIPPED, DOWN 

TO THE LAST TEN (10) CHARACTERS WHICH WILL BE 

CHECKED. THE SKIPPING AND RESUMPTION OF CHECKING 

WILL ONLY BE DONE ON RECORDS WHICH ARE LONG 

ENOUGH TO ALLOW IT. 


SEQ 0018 
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C. CONDITION ERRORS: (CATASTROPHIC) 


THESE PRINTOUTS REFLECT THE STATE OF THE TAPE SYSTEM 
EITHER BEFORE OR AFTER AN OPERATION 


1. EOT: WHEN EOT (END OF TAPE) IS ENCOUNTERED DURING 
EITHER A READ OR WRITE, THE CYCLE IS COMPLETED 
ON THE SHORTENED BLOCK AFTER WHICH THE SLAVE 
WILL BE REWOUND AND FLAGGED AS UNAVAILABLE 
FOR TESTING UNTIL ALL SLAVES HAVE REACHED EOT AND 
ARE REWOUND. WHEN THE LAST AVAILABLE SLAVE 
HAS REACHED EOT AND BEEN REWOUND TO BOT, 
TESTING WILL BE RESUMED ON ALL SLAVES. 


- ILLEGAL BOT: WHEN A SLAVE ENCOUNTERS BOT DURING 
A READ, WRITE, OR SPACE OPERATION, AN ERROR 
IS PRINTED AND THE PROGRAM HALTED. THIS IS 
A CATASTROPHIC ERROR. TESTING MAY BE RESUMED 
BY PRESSING CONTINUE; BUT A RESTART IS 
SUGGESTED. 


- NO INTERRUPT RETURNED: EACH TAPE OPERATION SHOULD BE 
TERMINATED BY THE SETTING OF AN INTERRUPT IN 
THE CPU. IF NO INTERRUPT IS RETURNED WITHIN 
THE APPROPIATE TIME, AN ERROR IS PRINTED. 


- NO MEDIUM ON-LINE: BEFORE AN OPERATION IS ATTEMPTED, 
THE TMO2 IS CHECKED FOR MOL. IF IT IS NOT 
SET, AN ERROR IS PRINTED, AND THE PROGRAM STOPPED. 
TESTING MAY BE RESUMED BY PRESSING CONTINUE. 


- NO BOT ON REWIND: AS EACH SLAVE IS REWOUND A CHECK 
IS MADE TO ASSURE THAT PROPER POSITION AT BOT 
IS ESTABLISHED. IF BOT IS NOT SET UPON COMPLETION OF 
A REWIND, AN ERROR IS PRINTED AND THE PROGRAM 
WILL HALT. PRESS CONTINUE TO RESUME TESTING. 


- POSITION ERROR: IF POSITION IS LOST DURING A RETRY, 
A MESSAGE IS PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TESTING UNTIL ALL ARE 
RESTARTED AT BLOCK ONE. 


- BAD TAPE OVERFLOW: IF 20(8) BAD TAPE SPOTS ARE FOUND, 
A MESSAGE IS PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TESTING UNITLL ARE 
RESTARTED AT BLOCK ONE. 


- HARD READ ERROR: IF ANY HARD READ ERROR IS ENCOUNTERED 
DURING A RETRY, A MESSAGE IS PRINTED 
REGARDLESS OF THE SETTING OF SW10. 


- NON-RETRYABLE: IF ANY NON-RETRYABLE ERROR IS ENCOUNTERED, A 
MESSAGE IS PRINTED REGARDLESS OF THE SETTING OF 
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D. EXAMPLES: 
GLOSSARY: CURRENT BLOCK NUMBER 
CURRENT RECORD NUMBER 
RECORD SIZE, IN FRAMES 
WRITE STATUS ERROR 
READ STATUS ERROR 
SPACE ERROR 
TAPE MARK 


ERSE 
RH/TU16 CONTROL REGISTER 
RH WORD COUNT 
RH BUS ADDRESS 
TU16 FRAME COUNT 
= RH CONTROLLER STATUS 
TU16 DRIVE STATUS 
TU16 ERROR REGISTER 
ATTENTION SUMMARY 
TU16 CHECK CHARACTER 
RH DATA BUFFER 
TU16 MAINTENENCE REGISTER 
TU16 DRIVE TYPE 
TU16 SERIAL NUMBER 
TU16 TEST CONTROL 
DATA FORMAT 
PARITY 
*D = DENSITY 
*PATRN = DATA PATTERN NUMBER (R = RANDOM) 
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EXAMPLE 


EXAMPLE 


1: IN THIS EXAMPLE SLAVE 1 ON TMO2 O WAS 
OPERATING AT 1600 BPI IN ODD PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
WRITE STATUS ERROR WAS DETECTED. THE BAD 
STATUS INDICATES THAT AN UNCORRECTABLE DATA 
ERROR (BIT 6 OF ER) AND A PE FORMAT ERROR 
(BIT 7 OF ER) OCCURED DURING THE WRITE 
OPERATION OF THE SIXTH (6) RECORD OF THE 
FIFTY (50) RECORDS IN BLOCK (2). THE 

SIZE OF THE RECORD WAS TWO HUNDRED (200) 


FRAMES. THE CHECK CHARACTER REFLECTS THE BAD TRACK. 


DRIVE NO. 0 *SLAVE NO. 1 *D 4 *P 0 *F 14 *PATRN 1 
*BN 2 *RN 6-50 *RS = 200 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 300 

we 0 

CK 4 


2: IN THIS EXAMPLE SLAVE 3 ON TMO2 1 WAS 
OPERATING AT 800 BPI IN EVEN PARITY USING 

THE NINE CHANNEL NORMAL DATA FORMAT. A 

READ STATUS ERROR WAS DETECTED DURING 

THE REVERSE READ OF THE TENTH (10) 

RECORD OF THE 25 RECORDS IN THIS BLOCK (12). 
THE SIZE OF THE RECORD IS TWENTY (20) FRAMES. 
THE PRINTOUT INDICATES THE DETECTION OF A .s 
VERTICAL PARITY ERROR (VPE: BIT 6 OF ER) AND A 
CYCLIC REDUNDENCY ERROR (CRC: BIT 15 OF ER). 
THE CRC CHARACTER, AS RECEIVED, IS NOT 

AS EXPECTED AND IS PRINTED SHOWING BOTH 

THE ACTUAL (FIRST) AND THE EXPECTED (LAST). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 3 
*BN 12 *RN 10-25 *RS 20 *RE R 

CS1 144276 

CS2 100 

DS 150600 

ER 100100 


wC 0 
CRC 767-777 


SEQ 0021 czT 
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EXAMPLE 3: IN THIS EXAMPLE, THE HEADER IS THE SAME AS 
IN EXAMPLE TWO (2) EXCEPT THAT THE ERROR TYPE 
REFLECTS A READ ERROR IN THE FORWARD 
DIRECTION. IT IS NORMAL FOR THE SYSTEM 
TO DETECT AN ERROR IN THE FORWARD AND 
REVERSE DIRECTION AT THE SAME RECORD. 
REMEMBER THAT IN REVERSE OPERATIONS THE 
RECORD NUMBER IS COUNTED DOWN SO THAT 
RECORD NUMBER TEN (10) WILL SHOWN IN 
Ae sy POSITION IN BOTH FORWARD AND 


DRIVE NO. 2 *SLAVE NO. 5 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

ER 100100 


we 0 
CRC 767-777 


EXAMPLE 4: IN EXAMPLES 2 AND 3 THE READ OPERATION 
RESULTED IN BAD STATUS, HOWEVER THE 
DATA ASSOCIATED WITH THE OPERATION WAS 
NOT BAD (OR WAS NOT CHECKED: SW 13=1). 
THIS EXAMPLE (4) SHOWS A PRINTOUT REFLECTING 
A READ STATUS ERROR ACCOMPANIED BY BAD 
DATA IN CHARACTERS FOUR (4) AND SIX (6). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 o70 10-25 *RS 20 *RE F 


ER 100100 
wC 0 
CRC 767-7 
CN 4 


ns = es Ss ss ss ss ss > ss ss 
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EXAMPLE 5: THIS EXAMPLE SHOWS A READ DATA ERROR 
WHICH OCCURRED, WITHOUT AN ACCOMPANING 
STATUS ERROR, WHICH RESULTED IN A BAD RECORD. 


DRIVE NO. 3 *SLAVE NO. 1 *D 4 *P O*F 14 *PATRN R 
*BN 100 *RN 66-200 *RS 2000 *DE F 


CN 
G 11111111 
00000 


2 z 
oo S-—- So=— o-* 


= 
om NOH OOK No HK FO KS WOK NO Oo Oo 
o- o-—- o- S&-—- OS 


Sag ocegoesgoeoegoee gee i >a 


BAD RECORD 


EXAMPLE 6: THE FOLLOWING EXAMPLE SHOWS THE 
RESULT OF A SPACE OPERATION THAT 
SHOULD HAVE SPACED REVERSE OVER 
AN ENTIRE 100 RECORD BLOCK BUT 
WHICH TERMINATED AT THE END OF 40 
RECORDS. LEAVING A POSITION ERROR OF 40 


DRIVE NO. 2 *SLAVE NO. 6 *D 2 *P 0 *F 14 
*BN 3 *RN 100-100 *RS 1000 *SE R 
ERR AMT 40 
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EXAMPLE 7: THIS EXAMPLE REFLECTS AN ERROR DETECTED 
WHILE WRITING A TAPE MARK (TM) AT THE END 
OF THE CURRENT DATA BLOCK PER OPTION RESPONSE 
TM=1. NOTE THAT THE TM RECORD NUMBER 
IS ONE GREATER THAN THE TOTAL NUMBER OF DATA 
RECORDS IN THE CURRENT BLOCK. 


DRIVE NO. 1 *SLAVE NO. 1 *D 2 *P 0 *F 14 
*BN 67 *RN 101-100 *RS 36 *WE TM 

CS1 144226 

CS2 300 

DS — 

ER 1000 

we 0 


EXAMPLE 8: THIS EXAMPLE SHOWS TWO (2) PRINTOUTS 
REFLECTING A WRITE RETRY WHICH WAS NOT 
SUCCESSFUL THE FIRST TIME, BUT WHICH 
DID RECOVER ON THE SECOND. 

THE UNSUCCESSFUL RETRY IS LOGGED AS 
A SUSPECTED BAD TAPE SPOT BY ITS 
BLOCK AND RECORD NUMBER. 


DRIVE NO. 0 *SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 

CS1 — 

CS2 100 

DS be aa 

ER 100 


we 0 
***ORIGINAL ERROR*** 


DRIVE NO. 0 SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 100 

wC 0 

SUSPECT BAD TAPE 

RETRY: 0 


REPT: 0 
RECOVERED 
RETRY: 1 
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EXAMPLE 


EXAMPLE 


EXAMPLE 


9: IF , DURING A WRITE RETRY THE BACKSPACE 
OR THE ERASE OPERATION RESULT IN AN ERROR, 
THE ERROR WILL BE PRINTED AND THE PROGRAM 
HALTED. THIS EXAMPLE SHOWS THE ERROR PRINT 
FOR A SPACE AND AN ERASE (2 EXAMPLES) 


DRIVE NO. 1 *SLAVE NO. 1 *D 3 *P 0 *F 14 
BN 12 *RN 8-64 *RS 500 *SE RTRY 
ERR AMT 1 


DRIVE NO. 1 *SLAVE NO. 1 *D 3 *P O *#F 14 
*BN 12 *RN 8-64 *RS 500 *ERASE 

cs cae 

CS2 100 

DS 150600 

ER 400 

wt 0 


10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
A REWIND OPERATION WHICH DOES NOT HAVE 
BOT SET AT THE END. 


DRIVE NO. 2 *SLAVE ~" oi *D 3 *P 0 *F 14 
*BN 66 *RN 15-20 *RS 1000 
NOT BOT ON REWIND: HALT 


11: THIS EXAMPLE SHOWS THE PRINTOUT MADE WHEN 
THERE IS NO INTERRUPT RETURNED AT THE END 
OF AN OPERATION. 


DRIVE NO. 7 *SLAVE NO. 7 *D 2 *P 1 *F 14 
*BN 1 *RN 25-26 *RS 1200 
NO INTERRUPT 


SEQ 0025 
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STATISTICS PRINTOUT 


THE PROGRAM, THROUGH ITS ERROR CHECKING, IS ABLE TO GATHER CERTAIN 
STATISTICS ABOUT THE PERFORMANCE OF EACH UNIT UNDER TEST 

THIS INFORMATION IS PRINTED OUT WHENEVER A UNIT IS REWOUND 

FROM END OF TAPE, OR BECAUSE IT IS TO BE REMOVED FROM TESTING 

DUE TO SOME CATASTROPHIC ERROR. (POSITION LOST, BAD TAPE OVERFLOW) 
THE STATISTICS MAY BE PRINTED AT ANY TIME BY SETTING 

SWITCH 14 TO A ONE (1). THIS PRESENTS A PICTURE OF PERFORMANCE 

UP TO THIS TIME. THE STATISTICS WILL BE CLEARED UPON REWIND OF THE 
UNIT; BUT NOT BY SETTING SW 14. 


STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 


DROPS: 030006450 
PICKS: 0000002 
RETRY: 
WTERR: 
REFWD: 
SOFT: 
HARD: 
DEFWD: 
REREV: 
SOFT: 
HARD : 
DEREV 
2 BAD TAPE SPOTS 
0 *BN 1 *RN 2 
1 *BN 15 *RN 100 


** NOTE ** DROPS AND PICKS REFLECT CORE BIT POSITIONS. 
THE FOLLOWING IS A TABLE OF CORE BITS TO TRACK NUMBER. 


TRACK NO. 76539182 
CORE BIT 76543210 


DATA BITS DROPPED: PER CORE BIT(SEE NOTE ABOVE) 
DATA BITS PICKED UP: PER CORE BIT(SEE NOTE ABOVE) 
WRITE RETRIES 

WRITE ERRORS NOT ASSOCIATED WITH BAD TAPE 

READ FORWARD STATUS ERRORS 

READ REVERSE STATUS ERRORS 

RECOVERED READ ERRORS .. 

UNRECOVERED READ ERRORS ~“* 

FORWARD DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 
REVERSE DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 


OW ££ O—-NMWh- 


SEQ 0026 
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11. AUTO SEQUENCE 


THE AUTO SEQUENCE (START AT ADDRESS 240) WILL EXECUTE A 
PREDETERMINED TEST PLAN ON ALL AVAILABLE SLAVES ON EACH 
AVAILABLE TMO2. THE ONLY OPERATOR RESPONSE IS TO THE TYPED 
REQUESTS FOR THE RH ADDRESS, VECTOR, CONTINUOUS OR SINGLE 
CYCLE, AND NRZ ONLY. ALL SWITCHES REMAIN ACTIVE AND MAY BE 
USED NORMALLY; HOWEVER THE IDEA IS TO LEAVE ALL SWITCHES 
DOWN AND ALLOW FULL EXECUTION OF THE TEST PLAN FOR 

SYSTEM CHECKOUT. 


SAMPLE START AT 240(8): AUTO SEQUENCE. 
LOAD ADDRESS 240(8), SET SWITCHES TO ZERO, PRESS START: 


TU16 AUTO SEQUENCE TEST 
ENTER CONDITIONS IN OCTAL 


REGISTER START 
VECTOR ADDRESS 
NRZ ONLY: (0) 

AUTO CONT: (1) 


THIS EXAMPLE SHOWS AN AUTO SEQUENCE START WITH THE RH 
AT BUS ADDRESS 172440 AND A VECTOR OF 224. ALL AVAILABLE 
HARDWARE WILL BE TESTED CONTINUOUSLY IN BOTH NRZ AND PE MODE. 


AS EACH TMO2 AND ITS SLAVES ARE FOUND, A DIVIDER LINE OF 
ASTERICKS WILL BE PRINTED FOLLOWED BY A PRINTOUT OF THE 
TMO2 AND ITS SLAVES BEING TESTED. AS EACH TMO2 AND 

ITS SLAVES ARE FINISHED, ANOTHER DIVIDER IS PRINTED 
BEFORE TESTING IS RESUMED ON THE NEXT AVAILABLE DRIVE. 


WHEN ALL AVAILABLE HARDWARE HAS BEEN TESTED, 

A PRINTOUT OF END OF SEQUENCE WILL BE DONE AND THE 
PROGRAM WILL EITHER HALT (AUTO CONT = 1) OR RESTART WITH 
THE FIRST AVAILABLE UNIT (AUTO CONT = 0). 


172400(172440) 
224(CR) 
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AUTO SEQUENCE TEST PLAN: 


THE AUTO SEQUENCE WILL EXECUTE BOTH AN NRZ AND A PE 
CYCLE. EACH CYCLE WILL BE STARTED FROM BOT AND CONSIST 
OF VARIOUS DATA PATTERNS INTENDED TO BE WORST CASE 

FOR THAT PARTICULAR MODE. 


1. WRZ CYCLE: 


SIX (6) BLOCKS OF ONE HUNDRED (100) RECORDS 
OF FOUR THOUSAND (4000) CHARACTERS FOR 
EACH OF THE FOUR DATA PATTERNS. 


PATTERN 1: ALL ONES DATA IN ALL BYTES 
PATTERN 10: WALKING ONE/ALL ONE 
PATTERN 14: WALKING ZERO/ALL ZERO 
RANDOM DATA: RANDOM 


2. PE CYCLE: (IF NRZ ONLY = 0) 


SIX BLOCKS OF ONE HUNDRED (100) RECORDS 

OF FOUR THOUSAND (4000) CHARACTERS EACH FOR 
EACH OF THREE DATA PATTERNS, THEN RANDOM 
DATA BLOCKS TO END OF TAPE. 


PATTERN 10: WALKING ONE/ALL ONE 

PATTERN 14: WALKING ZERO/ALL ZERO 

PATTERN 15: THREE (3) 0 CHARACTERS, TWO (2) ALL CHARACTERS, THREE 0 CHARACTERS, 
THEN COMPLIMENT PATTERN. REPEATED FOR A FULL BUFFER 

RANDOM DATA: RANDOM 


SEQ 0028 
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12. 


26-APR-78 09:51 


TESTING PROCEDURES 


AS PREVIOUSLY STATED THIS PROGRAM CONTAINS NO 

FIXED TESTS. THE ENTIRE TEST CYCLE TO BE EXECUTED 

IS DESCRIBED BY THE OPERATOR THOUGH RESPONSES TO 

TELETYPE REQUESTS FOR PARAMETERS AND CONSOLE SWITCH 
SETTINGS FOR OPERATION. THE OPERATION SELECTED WILL 

BE EXECUTED WITH THE PARAMETERS ENTERED CONTINUOUSLY 

ON EACH AVAILABLE UNIT, ONE BLOCK AT A TIME, UNTIL 

STOPPED BY THE OPERATOR. THE OPERATION MAY BE CHANGED 
DYNAMICALLY BY CHANGING THE CONSOLE SWITCHES AT ANY 

TIME. THE PROGRAM WILL ATTEMPT TO PERFORM ANY OPERATION 
SET AND THEREFORE CAUTION SHOULD BE TAKEN TO ASSURE THAT 
THE UNIT IS CAPABLE OF PERFORMING AS REQUESTED. FOR 
INSTANCE, ONE SHOULD NOT ATTEMPT TO PERFORM READ OPERATIONS 
ON A TAPE WHICH HAS NOT BEEN WRITTEN AS THE DATA, IF ANY, 
IS UNPREDICTABLE. HOWEVER, IF A TAPE HAS BEEN WRITTEN WITH 
THIS PROGRAM, IT CAN BE READ AS OFTEN AS DESIRED WITHOUT 
BEING REWRITTEN. THIS IS A GOOD PROCEDURE TO USE FOR 
TESTING TAPE COMPATABILITY. SCOPING OF TAPE UNITS BECOMES 
SIMPLE; BY SETTING THE DESIRED OPERATION AND ITS PARAMETER, 
A UNIT MAY BE CONTINUOUSLY EXERCISED IN ANY MANNER DESIRED. 
BY USING THE VARIOUS ERROR CONTROL SWITCHES AND ENTERING 
THE NEEDED STALL, ANY FUNCTION CAN BE SCOPED RATHER 

EASILY. RELIABILITY TESTING CAN BE PREFORMED BY USE 

OF THE RANDOMIZATION CAPABILITY. PERHAPS A CYCLE OF 

RANDOM TESTING MIGHT BE SET UP AND ALLOWED TO RUN 

FOR SOME PERIOD OF TIME, THE STATISTICAL COLLECTION 

OF DROPS AND PICKS IS THEN SIGNIFICANT. INTERMITTANT 
PROBLEMS CAN BE FOUND BY SETTING THE DESIRED OPERATION 

IN MOTION AND DISALLOWING ERROR PRINTOUTS WHILE ALLOWING 

A HALT ON ERROR. THE ERROR THAT CAUSED THE HALT CAN 

BE PRINTED BY RESETTING CONSOLE SWITCH TEN AND PRESSING 
CONTINUE. IF SOME PARTICULAR DATA PATTERN SHOULD BE 
CAUSING DATA ERROR, USE OF THE YOZZLE SWITCH AND ITS 
ASSOCIATED STALL WiL! TO ALLOW SCOPING OF THIS 

PARTICULAR RECORD. 


AS YOU SEE, THERE ARE MYRIAD TESTING PROCEDURES WHICH 

COULD BE PERFORMED. THE PARAMETERS, TAPE OPERATIONS, ERROR 
EXAMINATION AND REPORTING ARE ALL AT YOUR DISCRETION, 

TRY IT, YOU'LL LIKE IT. 


LISTING 


SEQ 0029 
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LIST BIN,L 

. TITLE CTTUAHO. thO2- TU16/TE16 RELIAB 

211 - CZTUAHO 

721 APRIL 76 

sR. BARNES 

ne gees (+#G) J.G.ADAMS MAY 1977 1) INTERMITTENT PGM FAILURE 
; ON BAD TAPE OVERFLOW 

ee 2) TAPE RUNAWAY AT EOT 

3 ++G 3) ERRONEOUS ERROR TYPEOUT 
3++G 4) CHANGED MISC INST'S TO 
3++G CONSERVE MEMORY USAGE. 

3 ++G 5)ADDED ACT11 HOOKS 

3++G 6)FIXED TTY INPUT 

-MCALL .$ACT11,.$EOP,$CHAIN 3++G ACT11 HOOKS 

-NLIST MC 3++G DO NOT LIST MACRO CALLS 

LIST 3++G LIST MACRO EXPANSIONS 


ME 
-ENABLE ABS,AMA 


;*+G ENABLE ABS AND MODE ‘37° 


sCONSOLE SWITCHES tetteeeeeeee 


1=STOP ON ERROR 
O=CONTINUE ON ERROR 


1=PRINT READ/WRITE STATS 
0=D0 NOT PRINT STATS 


3SW15: 


;SW14: 


;SW13: 
‘ swi2: 
swt: 
‘Sw10: 


1=D0 NOT 


O=PRINT 
1=REWIND T 


CHECK DATA 
DATA 


CHECK WRITE ERRORS 
WRITE ERRORS 

CHECK READ ERRORS 
READ ERRORS 

PRINT ERRORS 
ERRORS 


APE 
0=DO NOT REWIND 


1=USE RANDOM DATA 

O=USE FIXED DATA PATTERN 
1=USE RANDOM CHARACTER COUNT 
O=USE FIXED CHAR COUNT 
1=USE RANDOM RECORD COUNT 
O=USE FIXED RECORD COUNT 


1=YOZZLE 


ON CURRENT RECORD 


0=D0 NOT YOZZLE 


1=D0 BOTH READ AND WRITE RETRIES 
O=INHIBIT RETRIES 


1=D0 NOT 


READ FORWARD 


SEQ 0030 


Ci 
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Q=READ FORWARD 

1=D0 NOT READ REVERSE 
O=READ REVERSE 
1=READ FORWARD FIRST 
O=READ REVERSE FIRST 
1=D0 NOT WRITE 
O=WRITE 


SEQ 0031 





C2 
C2 
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1409 :TU16/TE16 REGISTER BlTSteeeterece 


215 314 313 312 511 510 :09 508 ;07 ;06 ;05 ;04 ;03 ;02 ;01 ;00 ; 
JOO OOOO OOOO OOO 000000000 OOOO OOOO TIT IS 
:SC i TRE; smCP; SPR; DNA; PSL; Al7; sA16; RDY; IE : FUN; FUN; FUN; FUN; FUN; GO ; 


20d 0000000 0000000000000 0000 00G OGIO IDIOT 
; WORD Z 
: COUNT 

DOQQOOO 00000000 0000 00000 000 0000000000 00000000 IIIIIIIIK 
: ADDRESS 
DOQO0O 00000 00 200 0000000000 1000000000000 III I IIIIIIIIK 
: E : 
; COUNT 

DOQQ 00 0000 000000 00000 0000000000000 00000000000 
DLT; WCE; UPE; NED; NEM; PGE ; MXF ; :MDP: ;OR ;1R :CLR:PAT;BAI;U2 ;U1 ;U0 ; 

Py R; Py 

MTTTTTITUTTETTTETTTTTETTTTRTTITETTTITTTITERITER TTT TERT TERTTTTTET: 
ZATAZERR; PIP; MOL: WRL;EOT; SPR; DPR: DRY: SSC; PES; SDN; 1DB; EOF :BOT; SLA; 


1030000 00500000 001A TOOT TIAGO ARIAT ITI 
3 CDE; UNS; OPI; sDTE; sNEF ; CS ;FCE;NSG;PEF; INC; DAT; FMT; CNT; RMR; ILR; ILF; 
:CRC; Z1TM: $ 7LRC;VPE;BPE; 7 BPE; ; 
1020000000000 100000 TSK IDI KAI 

: ; ATTENTION : 
; SUMMARY 


fine Sey tenure een emnepeeemaee 
>; CHECK 3 
; CHARACTER 

1 7 LR nR mR 

: DATA : 
; BUFFER 

5 XOX XXX XXX HII AHHH 

308 :0B 308 :DB :0B :DB :DB 308 ;0B ;WRT;MM ;OP ;0P ;OP ;0P ;:MM ; 

3 6; 4; 13; 82 P s€le; CLK: 4;33:2:3: 1 s@; 

STTTTTTRTTTTTTTLTTTTETTTTTTTERTETITTT TPES TPTEP TERT TERETE TTT TTT? 
; DRIVE s 7s; :SLV; 3 
; TYPE 3CH ; PR; 

TT geen pee arietinum cm 
3; SERIAL 5 
; NUMBER 

DOQQ QQ00 0000000000000 00 000000 0000000000000 0000 III II IIIT 

sACL; FCS; TCW; ENA; SPR; 4 e iDEN; DEN: FAT; SFMT; FMT; FMT; by y .¥ cy 

3 A : : 
O00 000000 (000000000000 00000 0000000000 GOOG OIG 
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SREGISTER EQUI VSteeetererere 
000000 


000240 NOP=240 
STRAP CATCHERS tttreeeeere 
000030 -=30 
000030 024670 TRAP3O 


000032 .= 
000032 000340 340 


3ACT11 HOOK seteeeeeeee 
000034 SSVPC=. :SAVE CURRENT LOCATION CTR 
000046 -WORD SENDAD SET LOCATION 46 


000052 "wORD 0 :SET LOCATION 52 = 0 
000034 " =$SVPC “RESTORE LOCATION CTR 


INTERRUPT VECTOReteeeeenee 
=6 


000060 -= 
000060 021630 TTINT ; TTY INTERRUPT HANDLER ADDRESS 
000062 000000 0 


SOFTWARE SWITCH REGISTER LOC. 176eeeennnnne 


000176 -=176 
000176 000000 SWREG: 0 ; SOFTWARE SWITCH REGISTER 


SSTART ADDRESSteeeeeeeee 


000200 -=200 
000200 000137 003026 JMP START sENTER PARAMETERS VIA TTY 


000204 -=204 
000204 000137 003152 JMP STARTC USE FIXED PARAMETERS; HOLD DATA 


000210 -=210 
000210 005037 015150 CLR RDFL 
000214 000137 003160 JMP STARTA ;USE FIXED PARAMETERS; NEW DATA 


7MAG TAPE INTERRUPT VECTOR teteteeee 
000224 2224 


000224 021714 MTINT ;MAG TAPE INTERRUPT HANDLER ADDRESS 
000226 000340 340 
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000240 
000240 005237 000734 
000244 000137 003136 
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sAUTO SEQUENCE START eteeteteee 


-=240 
INC ASEQF SET AUTO SEQUENCE FLAG 
JMP STAUT 3GO TO START OF AUTO SEQUENCE 


SEQ 0034 





MoM AsAIArsNAIAIAIAIAIAIAIAIAIAIAINAIAIAIAIAIAIAIAIAIAIAIAIANIAIAIAIAIAIAIAIAIAIAIAIAIAIAINIAIA)JIAIAIAIAINIAI A) A) AIA 
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oO 
N 
4 


SHORT CONVERSATION RESTARTtetterer 
000300 .=300 
000300 005237 014150 INC SCVFL SET SHORT CONVERSATION FLAG 
000304 000137 003026 JMP START sENTER SHORT PARAMETER LIST 


000510 .=510 
7 TUI6/TE16 REGISTER EQUIVSteeteeenee 


000510 172440 : 172440 


000542 172472 : 172472 
SCONSTANTStteeeeeeere 
000544 172440 : 172440 :STARTING REGISTER ADDRESS (CS1) 


:VECTOR ADDRESS (RH INTERRUPT) 
DRIVE NUMBER 
UNIT DESCRIPTION (PARITY, DENSITY,UNIT,FORMAT) 
RECORD COUNTER 
NUMBER OF CHAR (4 = 4000) OCTAL IN TWOS COMPLEMENT 
:DATA PATTERN SELECTOR (0 - 15) OCTAL 
;READ COMMAND 
; TAPE MARK FLAG: 1=TM O=NO TM 
: INTERCHANGE READ 1=YES 0=NO 
SINGLE PASS 1=YES O0=NO 
sREAD STALL 
WRITE STALL 
TURN AROUND STAL 
:YOZZLE STAL 
READ RETRY NUMBER 
PROCESSOR STATUS 
CONSOLE SWITCHES 
TTY READ STATUS REGISTER 
TTY READ BUFFER 
TTY PUNCH STATUS REGISTER 
TTY PUNCH OUTPUT REGISTER 
sH/S READER STATUS REGISTER 
B: 177552 sH/S READER BUFFER 
RANBAS: 153624 ;RANDOM NUMBER ee BASE 
RANSAV: 032561 ;RANDOM NUMBER BUFFER 
RCSAV: 0 RECORD COUNT SAVE 
000632 000000 FCSAV: 0 ;FRAME COUNT SAVE 


MRM NNNNNNYNNYNANURNNNNRNNNRNVNNNVRNNNNNNNNNNNNNNRMNNNNWN 
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sFLAGS AND COUNTERSttteeeeece 


TTY ENTERY FLAG 

:TTY OUTPUT BUFFER 

; TTY INPUT BUFFER 

: TEMP STORAGE 

: TEMP STORAGE 

TEMP STORAGE 

sNRZ ONLY FLAG 

ERROR MSG ADDRESS STORAGE 
BLOCK COUNTER 

:BAD RECORD COUNTER 

;EOT FLAG 

; INTERRUUPT RETURN STORAGE 
;HEADER FLAG 

:DELAY STORAGE 

;PRINT FLAG 

;MAG TAPE CONT REGISTER BUFFER 
UNIT TABLE POINTER 

; TAPE MARK FLAG 

REPEAT COUNTER 

RETRY COUNTER 

DATA ERROR FLAG 

STATUS ERROR FLAG 

BIT COUNTER 

RETRY FLAG 

sUNIT POINTER SAVE 

:BITS DROPPED POINTER 
sBITS PICKED POINTER 
ERROR SAVE LOC 

:BAD TAPE FLAG 

STATISTIC PRINT FLAG 
;BAD TAPE POINTER 

ERASE FLAG 

;AUTO SEQ FLAG 

:UTO SEQ DRIVE NUMBER 
;AUTO BLOCK COUNTER 

sAUTO SEQ CONTINUOUS FLAG 
EOP FLAG 


000000 


0 
0 
0 
0 
0 
0 
0 
: 0 
: © 
0 
: 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 0 
: 0 
0 


000744 000000 
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001046 


001050 


001066 
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;UNIT ORDER AND DESCRIPTION TABLE *teeeeneee 


: THIS TABLE IS LOADED 
;WITH UNIT NUMBERS AND 
THEIR DESCRIPTIONS IN 
; THE ORDER THAT THEY 
;WILL BE TESTED 


000000 


‘'ooooo°o0°co 


177777 
sUNIT DROPS AND PICKS POINTERStttteneee 
001210 


001570 


001610 BTADDR: 
B 


002544 
UNIT WRITE RETRY COUNTERSttertenee 
000000 


oooo°o°o°oo 


000000 
SUNIT WRITE ERRORSteteeeeeee 


SEQ 0037 
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1667 001070 000000 WTER1: 0 

1668 001072 000000 WTER2: 0 

1669 001074 000000 WTER3: 0 

1670 001076 000000 WTER4: 0 

1671 001100 000000 WTERS: 0 

1672 001102 000000 WTER6: 0 

1673 001104 000000 WTER7: 0 

ers 001106 000000 WTER8: 0 

ee UNIT READ FORWARD ERRORStteteeeeee 
1678 001110 000000 RDER1: 0 

1679 001112 000000 RDER2: 0 

1680 001114 000000 RDER3: 0 

1681 001116 000000 RDER4: 0 

1682 001120 000000 RDERS: 0 

1683 001122 000000 RDER6: 0 

1684 001124 000000 RDER7: 0 

ar 001126 000000 RDER8: 0 

1687 UNIT DATA ERRORS FORWARDtteteeeene 
1688 


1689 001130 000000 DATER1: 


0 

0 

0 

1693 001140 000000 0 
0 0 

0 

0 


1696 001146 000000 
1698 sUNIT READ REVERSE ERRORStteeeeteee 


1700 001150 000000 RDERR1: 
1701 001152 000000 
1702 001154 000000 
1703 001156 000000 
1704 001160 000000 
1705 001162 000000 
1706 001164 000000 
1707 001166 000000 


1709 [UNIT DATA ERRORS REVERSEtteeeeenee 
001170 000000 DEREV1: 


ooooo°o°cwec 


_— So es 
SN NNN 
ee ee ee eed ed ed ad 
SBNAOUSWN—O 

oo 

oo 

— — 

w= 

on 

on 

oo 

oo 

oo 

oo 

oo 

oo 
oooo°o°ocC°ocoea 


001206 000000 
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:DROPS + PICKS PER CHANNEL PER UNI Teteteaeeae 
001210 000000 : 6 
001230 
001250 
001270 
001310 
001330 
001350 
001370 
001410 
001430 
001450 
001470 
001510 
001530 
001550 
001570 


or Oe 
“ 
. 


oO 
ut Ty 


Oo* Ot Ot COr CO CO Cr OC 
. o Z @ ° . a 


001610 
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;UNIT BAD TAPE COUNTER:16 PER SLAVEtttereneer 
001610 000000 
001714 
002020 
002124 
002230 
002334 
002440 
002544 


0 
.=.+102 
.+102 
- +102 
-*102 
-+102 
-+102 
-+102 
002650 "=, 4102 
sUNIT END OF TAPE COUNTERS 1 PER SLAVE****e28 
002650 000000 


0 
0 
0 
0 
0 
0 
002666 000000 0 


UNIT READ FORWARD SOFT ERROR*ttexee 
002670 000000 RFSOFT: 


0 
0 
0 
0 
0 
0 
0 
0 


002706 000000 
;UNIT READ REVERSE SOFT ERRORtteee%% 
002710 000000 RRSOFT: 


oooo°o°o°c”h6c 


002726 000000 
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;UNIT READ FORWARD HARD ERROR*ttteeee 
coaees RFHARD: 


ed a aa ed ed ed ead en 
Co 09 OD CO OD CO CO CO 


0 
0 
0 
0 
0 
0 
0 
0 


002746 000000 
;UNIT READ REVERSE HARD ERROR*#teees 
002750 000000 RRHARD: 


0 
0 
0 
0 
0 
0 
0 
0 


002766 000000 
sDATA PATTERN GENERATORStttteeeteene 


002770 002770 DATBL: . sENTRY TABLE 
DATAO: sEXTERNAL INPUT FROM H/S READER(SEE MAINDEC-11-DZTUF ) 
DATA1: sALL ONES 
DATA2: ;ALL ZEROS 
DATA3: ;WALKING ONE 
DATA4: sWALKING ZERO 
DATAS: ;ALTERNATING ONE/ZERO 
DATA6: ;ALTERNATING ZERO/ONE 
DATA?7: ;ALTERNATING ONE/ZERO IN ALTERNATING CHARACTERS 
DATA10: sWALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 
DATA11: sALL BITS 0-377 
DATA12: ;ALL BITS 377-0 
DATA13: sALTERNATING CHARACTERS 0 AND 377 
DATA14: sWALKING ZERO/ALL ZERG IN ALTERNATING CHARACTERS 
003024 015032 DATA15: ;AUTO SEQUENCE PATTERN 0,0,-1,-1,-1,0,0 





on 


Seong TMO2-TU16/TE16 RELIAB 


003026 
003032 
003036 
003040 


003042 


003132 


003136 
003144 
003150 


003152 
003156 


003160 
003164 
003170 
003174 
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012706 
005037 
005027 
000000 


022737 


000137 
122737 


000137 


012737 
005037 
000405 


005037 
000434 


005037 
012700 
012701 
005020 


09:51 


000500 
000734 


005116 
000042 
000176 
100000 
003040 
003126 
000006 
027365 


000734 
003262 


000001 
015150 


000634 


000634 
000636 
000037 


MACY11 30A(1052) 


000042 


000606 


175510 


000041 


000634 
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-EVEN 


APPAR RRRARAR ASE ASADALAR ASAE ASSES LEASES ALAS LSA SS SS 


;PROGRAM START AND SEQUENCE FORMATTER: 


THIS ROUTINE IS USED TO PERFORM ALL HOUSEKEEPING, 
;DECIDE WHICH TRANSPORT TO TEST AND ITS AVAILABILITY, 
;LOAD THE WRITE BUFFER WITH THE SELECTED DATA PATTERN, 
:GENERATE ANY RANDOM NUMBER AND THEN EXECUTE 

;THE TEST CYCLE REQUESTED BY THE SWITCH SETTING. 

sAT THE END OF THE TEST CYCLE THE NEXT UNIT IS SELECTED 
sAND CHECKED FOR AVAILABILITY AND THE TEST CYCLE IS 
sEXECUTED ON IT. 

;THE READ WRITE STATS MAY BE PRINTED AT THE END OF 
EACH TEST CYCLE VIA CONSOLE SWITCH FOURTEEN (14). 


FERRARA EEA E EAE RAE EEE AEAEKEREKEEKEE EEE 


> START — _ 300 eeeeecerer 
START: #500,SP 
ASEQF 
CL (PC)+ 
CHNFLG: . 0 


#SENDAD ,a#42 
508 


#SWREG, SWR 
#100000 ,aswR 
CHNFLG 

3$ 


#6, te 
STAU 
#nSG120, R4 


STAUT 
3$: ASEQF 
SUSWR 


SSTART 240 xeeeeeeeere 

STAUT: MOV #1,TINF 
CLR RDFL 
BR STARTB 


ZSTART 204 eeeeeeeere 
STARTC: CLR TINF 
BR STARTD 


SSTART 210 xeeeeeeere 
STARTA: CLR TINF 
STARTB: MOV #TOB,RO 


MOV #37,R1 
STARTO: CLR (RO)+ 


3+#G SET STACK PTR 

;CLEAR AUTO SEQUENCE FLAG 

;:CLEAR CHAIN INDICATOR 

;:CHAIN MODE INDICATOR 

3:1/0 = CHAIN/NOT CHAIN MODE 

;;BRANCH IF LOADED VIA ACT11 CHAIN MODE 


;;BRANCH IF IN DUMP MODE 


z: INVOKE SOFTWARE SWR 
RROR 


7:HALT ON E 
3;SET CHNFLG = CHAIN MODE 


3:G0 TO CHAIN ADDRESS 
:++G BRANCH IF NOT LOADED VIA TMDP 


ee ADVISE USER TO REMOVE TMDP 

pa 

3++G SET AUTO SEQUENCE FLAG 

;CHECK AND SET UP HRD/SOFT SWITCH REG ++ C.W 


;SET TTY ENTRY FLAG 
= RANDOM DATA FLAG 
264 


:CLEAR TTY INPUT FLAG 


3 ++G 


:CLEAR TTY ENTRY FLAG 


;CLEAR FLAGS AND COUNTERS 
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CZTUAH.P11 
003176 


003520 


005301 


023737 


000500 
004372 
001050 
000750 


177777 


177777 


000176 
000004 
000006 
000176 
000744 


000744 
005116 


024452 
000734 


022016 
012400 
000040 
177777 


100000 
000002 


005156 
005156 


177777 
000746 


000654 
000734 


000654 


MACY11 30A(1052) 


014406 
000654 
175322 


000004 
175300 


000606 


000606 


000042 


175104 
000746 
000746 


175126 
000746 
000552 


000740 


M 
STARTF: 
D 


STARTE: 
STARTD: 


SUSWR: 


6$: 


4$: 
STAUTO: 
1$: 


2$: 


START1: 
STARIA: 


STAR1B: 


E 
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R1 

STARTO 
#500,SP 
PC ,RANSET 


#1,BLCNTR 
#500,SP 
#340,aPSW 
a#6,-(SP) 
a#4 ,-(SP) 
#1$,a#4 
#-1,aSWR 
2$ 


3$ 
(SP)+,(SP)+ 
#SWREG, SWR 
(SP)+,a#4 
(SP)+,a#6 
#SWREG, SWR 
4$ 

EOPB1 

4 


$ 

EOPB1 
#SENDAD ,a#42 
6$ 


RO 

#-1,UN1(RO) 

2s 
#100000 ,UN1 (RO) 
#2,R0 


1$ 

REOTC,R3 

R3 

R3,REOTC 
#100,aTKS 
UNP ,RO 
#~-1,UN1(RO) 
STAR1B 
UN1(RO) ,UDES 
START4 


C 
BLCNTR,ABLCNT 


4 
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SET STACK POINTER 
;GO RESET RANDOM BASE 


CLEAR STATISTIC COUNTERS 


;PRESET PATTERN 
PRESET BLOCK COUNTER 


SAVE VECTORS 


;SET UP FOR TIMEOUT 
REFERENCE HARDWARE SWITCH REGISTER 


sADJUST STACK 
sPOINT TO SOFTWARE SWITCH REG 
RESTORE VECTORS 


1S SWREG SELECTED 


;ACT MODE? ++ C.W 

;BRANCH - IF YES ++ C.W 
;CHECK FOR CONTROL 

;AUTO SEQ MODE? ++ 
;BRANCH - IF NO ++ 

3GO DO AUTO SEQ ++ 

3GO GET PARAMETERS 

s INITIALIZE 

;POINT TO FIRST ENTRY 
3++G BRANCH IF LAST ENTRY 


CLEAR EOT FLAG 
;POINT TO NEXT UNIT ENTRY 
:+*#G CONTINUE CLEARING 


sRESTORE EOT CNTR 

SET TTY INTERRUPT ENABLE 
;RO = UNIT TABLE POINTER 
:+#+G BRANCH IF LAST ENTRY 
:1F LAST UNIT IN STRING: BR 
;LOAD NEXT UNIT DESCRIPTION 


3++G 

;BUMP BLOCK COUNTER 
;SEE IF AUTO SEQ 
:IF NOT: BR 

:SEE IF DONE SEQ 





Ci 
Ci 
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003526 
003530 
003534 
003540 


003542 
003546 


003706 


003712 
003716 


004034 
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001005 
005037 
005037 
000207 


005037 


042716 
032726 


012704 


000654 
000674 
000674 
000746 
175024 
012314 
000400 


015102 
000100 


012354 
000746 


004360 
000550 
000552 
174646 
000666 


022730 
026066 


000552 
175400 


002000 
000040 
004360 


012304 
040000 


000001 


026301 


MACY11 30A(1052) 


000552 


175006 


174772 


174656 
174672 


174574 


000666 


000666 
174600 


STARIC: 


START2: 


STARTS: 


START4: 


STAR4O: 


STARGA: 


1$: 


STP: 


F 
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STARIC 
BLCNTR 
UNP 

PC 


UNP 


RO 
UN1(RO) ,UDES 
aSwR 


START2 
START2 
PC,CCNTR 
#400 ,aSwWR 
STARTS 
PC,DATR 
#100,aSWR 
STARTS 
PC,RCNTR 


oR4 
;PRINT NOT AVAIL 


STARTS 
UDES,~(SP) 
#175400, (SP) 
#1700, (SP)+ 
seven. siree 


PC,DPPRT 
#MSG65,R4 


4 
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SEQ 0044 


:;1F NOT: BR 

;RESET BLOCK CNTR 
RESET UNIT POINTER 
RETURN TO AUTO SEQ 


;LOAD FIRST UNIT DESCRIPTION 
;+*#G BRANCH IF NOT RANDOM RECORD 
:+*#G SIZE REQUESTED. 

:1F NOT: BR 

:GO GENERATE RANDOM RECORD SIZE 
7SEE IF RANDOM DATA 

:1F NOT: BR 

:GO GENERATE RANDOM DATA 

oF weet IF he RECORD COUNT 

:G0 GENERATE RANDOM RECORD COUNT 
:++#G BRANCH IF NOT AT EOT 

:1F NOT: BR 

sELSE GO TO NEXT UNIT 

;SET DRIVE NUMBER 

;SET UNIT NUMBER 

:++G BRANCH IF UNIT AVAIL 


AWAIT TUR 
;PRINT HEADER 


; STOP 


; RY 

;GET UNIT DESCRIPTION 

3+*#G CLEAR ALL BUT FORMAT BITS 
;++G BRANCH IF NRZ 

++H BRANCH IF NZR 


G 
oa BRANCH IF SLAVE IN PE FORMAT 


;++#G GO TO NEXT UNIT 
:GO SET UP WRITE DATA 
; REWIND 

WRITE 

3 SET age ps DELAY 


ELAY 
:GO TO READ SEQUENCER 
4 AROUND DELAY 


E 
:SEE IF SHOULD PRINT STATISTICS 
:1F NOT: BR 

SET RECORD COUNTER TO 1 

:PRINT CYCLE NUMBER 

;GO PRINT STATS 


;PRINT DROPS AND PICKS 


CZ 
CZ 


G 4 
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2017 004040 104000 TTOUTT ;PRINT RETRY TOTAL 

2018 004042 013704 000674 MOV UNP ,R4 

2019 004046 016403 001050 MOV RTY1(R4),R3 

2020 004052 104002 OCTPP PRINT RETRIES 

2021 004054 012704 026452 MOV #MSG73,R4 

2022 004060 104000 TTOUTT PRINT WRITE ERROR TAG 

2023 004062 013704 000674 MOV UNP ,R4 

2024 004066 016403 001070 MOV WTER1(R4),R3 

2025 604072 104002 OCTPP PRINT WRITE ERRORS 

2026 004074 012704 026441 MOV #MSG72,R4 

2027 004100 104000 TTOUTT PRINT READ FORWARD ERROR TAG 
2028 004102 013704 000674 MOV UNP ,R4 

2029 004106 016403 001110 MOV RDER1(R4) ,R3 

2030 004112 104002 OCTPP PRINT READ FORWARD ERRORS 
2031 004114 012704 027247 MOV #MSG113,R4 

2032 004120 104000 TTOUTT ;PRINT SOFT TAG 

2033 004122 013704 000674 MOV UNP ,R4 

2034 004126 016403 002670 MOV RFSOFT(R4) ,R3 

2035 004132 104002 OCTPP PRINT FORWARD SOFT ERRORS 
2036 004134 012704 027260 MOV #ASG114,R4 

2037 004140 104000 TTOUTT PRINT HARD TAG 

2038 004142 013704 000674 MOV UNP ,R4 

2039 004146 016403 002730 MOV RFHARD(R4) ,R3 

2040 004152 104002 OCTPP ;PRINT HARD FORWARE ERRORS 
2041 004154 012704 026532 MOV #MSG77,R4 

2042 004160 104000 TTOUTT PRINT DATA ERROR FORWARD TAG 
2043 004162 013704 000674 MOV UNP ,R4 

2044 004166 014403 001130 MOV DATER1(R4) ,R3 

2045 004172 104002 OCTPP ;PRINT DATA ERROR FORWARD NUMBER 
2046 004174 012704 026335 MOV #MSG68 ,R4 

2047 004200 104000 TTOUTT ;PRINT READ ERROR REVERSE TAG 
2048 004202 013704 000674 MOV UNP ,R4 

2049 004206 016403 001150 MOV RDERR1(R4) ,R3 

2050 004212 104002 OCTPP ;PRINT REVESE ERROR NUMBER 
2051 004214 012704 027247 MOV #MSG113,R4 

2052 004220 104000 TTOUTT PRINT SOFT TAG 

2053 004222 013704 000674 MOV UNP ,R4 

2054 004226 016403 0062710 MOV RRSOFT(R4) ,R3 

2055 004232 104002 OCTPP PRINT REVERSE SOFT ERROR 
2056 004234 012704 027260 MOV #MSG114,R4 

2057 004240 104000 TTOUTT ;PRINT HARD TAG 

2058 004242 013704 000674 MOV UNP ,R4 

2059 004246 016403 002750 MOV RRHARD(R4) ,R3 

2060 004252 104002 OCTPP 

2061 004254 012704 026521 MOV #MSG76,R4 

2062 004260 104000 TTOUTT :PRINT DATA ERROR REVERSE TAG 
2063 004262 013704 000674 MOV UNP ,R4 

2064 004266 016403 001170 MOV DEREV1(R4) ,R3 

2065 004272 104002 OCTPP :PRINT DATA REVERSE ERROR NUMBER 
2066 004274 000207 RTS PC ; RETURN 

2067 004276 005237 000726 STPX: INC BISTF SET STAT ONLY PRINT 

2068 004302 004737 007324 JSR PC ,BTPRT :PRINT BAD TAPE STATS 

2069 004306 005037 000726 CLR BISTF CLEAR FLAG 

2070 004312 017700 174270 STARTS: MOV aswR,RO ;LOAD SWR 

2071 004316 042700 177762 BIC #177762,R0 MASK READ/WRITE SWITCHES 


2072 004322 022700 000015 CMP #15,R0 SEE IF HAVE READ OR WRITE 
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004326 


004366 


004372 
004400 
004406 
004414 
004422 


001417 


000137 


012737 
012737 
013737 
013737 
000207 


174166 
000666 


022730 
026066 


000062 
003454 


153624 
032561 
000630 
000632 


MACY11 30A(1052) 


START6: 


000674 START7: 
STARTS: 


000624 RANSET: 
000626 


000554 
000556 


H 
16-MAY-78 09:48 


; RANDOM 


MOV 
MOV 
MOV 
MOV 
RTS 


STARTS 
ads 
START7 
STAL 
START6 
PC,PAPRT 
#MSG49,R4 


#2,UNP 
START1 


4 
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; IF NOT: BR 
set BRANCH IF HAVE UNIT READY 
a 


;DELAY FOR TUR 
;PRINT HEADER 


;PRINT NOT AVAIL 
; STOP 


3s 
;POINT TO NEXT UNIT 
; CONTINUE 


BASE RESETexeeeeeeee 


#153624 ,RANBAS 
#32561 ,RANSAV 
RCSAV,RCNT 
FCSAV,FMCNT 

PC 


RESET BASE 

RESET BUFFER 
RESET RECORD COUNT 
;RESET FRAME COUNT 





AIAIAIAIAIAIAIAIAIAIAIAD 


1 4 
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;REWIND FROM EOT: 


s;WHEN ANY TRANSPORT BEING TESTED REACHES END OF TAPE 
;DURING A READ OR WRITE OPERATION, IT WILL BE REWOUND 

;AND FLAGGED AS UNAVAILABLE UNTIL ALL AVAILABLE UNITS 

:HAVE REACHED EOT AT WHICH TIME ALL TESTING WILL BE RESUMED 
:AT A BLOCK COUNT OF ONE (1). A MESSAGE WILL BE 

s;PRINTED ON THE SUPERVISORS CONSOLE AS EACH UNIT REACHES 


1 
1 
1 
1 
1 
1 
1 
1 
1 


ODONOUSWN— 


000552 
000011 
174056 


000007 
000724 


000660 
100000 
000660 
022730 
000002 
027140 
000001 


026751 


025120 
000674 
002650 
002650 
026776 
000724 
004030 
007324 
173710 
000666 
024761 


022730 
026243 


005156 


000674 
100000 


174110 
174050 


174034 


000724 


000724 


000652 


000746 


REOT: 
1$: 


REOTIA: 


REOT1B: 


V 
REOTIF: 
BR 


REOTIC: 
REOT1D: 


REOTIE: 


s 
REOT2A: 
B 


;EOT AND IS REWOUND. 


FERRARA EERE EEE EERE AERA EEA KERR RARER 


UDES ,ac2 
#11,aC1 
ads 

1$ 

#7,aC1 
BIFLG 
REOTIA 
EQTREC,RO 
#100000 ,RO 


#MSG106,R4 


REOTIE 
#MSG20,R4 


UNP ,R4 
EQTCO(R4) 
EQTCO(R4) ,R35 


#MSG16A,R4 


REOT2 
#MSG6,EMADDR 
PC,PAPRT 
#MSG60,R4 


REOTC 
REOTS 


UNP ,RO 
#100000 ,UN1 (RO) 


;LOAD COMMAND REGISTER 
DRIVE CLEAR 

3++#G WAIT FOR DRIVE READY 
AWAIT DRY 


sSTART REWIND 
;SEE IF BAD TAPE OVERFLOW REWIND 
:1F SO: BR 


;SET RECORD NUMBER OF EOT 
3++G CLEAR EOT IND & REC CTR 


PRINT HEADER 

:SEE IF POSITION ERROR 
IF NOT: BR 

7 SET POSITION ERROR MSG 


T's i — TAPE OVERFLOW 
;SET BAD TAPE OVERFLOW MSG 


:PRINT REWIND REASON 


:SET EOT MSG 
;PRINT MSG 


;BUMP CNTR 

PRINT EOT CNTR 

;PRINT RESTART MSG 

;CLEAR BAD TAPE FLAG 

PRINT STATS 

PRINT BAD TAPE STATS 

3+*G BRANCH IF UNIT IS READY 
WAIT DRY 

;PRINT HEADER 

PRINT NO DRIVE READY 


;SEE IF LAST UNIT TO REACH EOT 
;IF SO: BR 


:SET EOT FLAG 
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004664 


005052 
005054 


005156 


005726 


000412 
004737 


000000 


004360 


020000 
000002 


000001 
022730 
026034 


000674 
100000 
000002 
000674 
177777 


000674 


000634 
000734 


004372 
177777 
015150 
000570 
026644 


000042 


000734 


026644 


000744 
003242 
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000552 
173604 
173556 


173546 


000746 
000674 


000746 


014406 


REOT4: 
REOTS: 


R 
SENDAD: JSR 
N 


HERE: 


1$: 


REOTXX: 
T 


REOTC: 


J 
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RO,REOTC 
UNP 


UNP ,RO 
UN1(RO) ,UDES 


#MSG48,R4 


UNP ,RO 
ype aaa eas 


UNP ,RO 
#-1,UN1(RO) 
REOT4 

UNP 

TINF 

ASEQF 

REOTX 


(SP)+ 
TEND 


PC ,,RANSET 
#-1,PATS 
RDFL 

SPFLG 
REOTXX 
#MSG100,R4 


a#42,R0 
RE 


PC, (RO) 


#MSG100,R4 


EOPB1 
STARTE 


4 
PAGE 48 


RESET STACK POINTER 
:GO TO NEXT UNIT 


RESTORE EOT UNIT COUNTER 


;POINT TO FIRST UNIT 
;LOAD UNIT DESCRIPTION 
;LOAD COMMAND REGISTER 


sAWAIT PIP RESET 
;SEE IF HAVE BOT 
31F SO: BR 


PRINT HEADER 
PRINT BOT ERROR 


CLEAR EOT FLAG 


sPOINT TO NEXT UNIT 

3++G BRANCH IF NOT LAST UNIT 
seo 

sCLEAR UNIT POINTER 

sCLEAR TTY INPUT FLAG 

:SEE IF AUTO SEQ 

:IF NOT: BR 

sRESET STACK POINTER 

:GO DO END OF PASS ++ C.W 


:GO RESET RANDOM BASE 
PRESET PATTERN 
;CLEAR RANDOM FLAG 
;SEE IF SINGLE PASS 

: IF NOT: BR 


PRINT END OF PASS 
;GET ACT11 RETURN ADDRESS 
;BRANCH IF NOT ACT11 


;AUTO MODE? ++ C.W 
;BRANCH - IF NO ++ C.W 
RETURN TO AUTO SEQ ++ C.W 


:GET END OF PASS MESSAGE ++ C.W 
PRINT MESSAGE ++ C.W 


;RESTART AT BLOCK NUMBER ONE 
;EOT UNIT COUNTER 


SEQ 0048 


PO PIDE NANNING NYPD NIN NI AD POND PO PO NI AD PD AQ ND MO NI NY NO NY NOPD NO PI NI NO MIMPI MIMI NI NMI NI PIM NMINMINMINMINPIMI PIMPIN MOM MOP 
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FRR E ERE EA AAR EAEEEREKEREREEE 


REWIND ALL AVAIL TAPES: 


THIS ROUTINE; ENTERED VIA CONSOLE SWITCH NINE (9), 
;WILL REWIND ALL AVAILABLE TAPES TO BOT NO MATTER 
WHERE THEY ARE CURRENTLY POSITIONED AND RESUME TESTING 
;ON THE CURRENTLY SELECTED UNIT. 


FURR AEREREREAREAEEKERERRREREKE 


005160 032777 001000 173420 : taney aSwR +e pase REWIND 
R ee sELSE EXIT 
000674 000714 : SAVE UNIT POINTER 
000674 C P ZCLEAR POINTER 
000660 ;CLEAR EDT FLAG 
005156 
005156 
005156 
005156 ;RESTORE EOT UNIT COUNTER 
000674 : UNP ,RO ;POINT TO UNIT ENTRY 
177777 +=000746 C . :+#G BRANCH IF LAST ENTRY 
RWND2 :1F SO: BR 
000746 ae BRANCH IF ALREADY REWINDING 
:++ 
000746 000552 P SET UNIT DESCRIPTION 
173254 . ;LOAD COMMAND REGISTER 
173214 DRIVE CLEAR 


173206 MO START REWIND 
173214 : ; 3++G WAIT FOR DRIVE READY 


:1F DRY: BR 
000666 


ND1 sAWAIT DRY 
024761 000652 #MSG6,EMADDR 
022730 PC,PAPRT ;PRINT HEADER 


026364 #MSG70,R4 
PRINT NO DRIVE READY 


Ss 

100000 000746 RWNDIA: ye pe UN1(RO) ;CLEAR EOT FLAG 
000002 000674 #2,U :BUMP POINTER 

RuDO :++#G DO NEXT UNIT 
000674 RWND2: UNP :CLEAR POINTER 
000674 RWND3: UNP ,RO ;POINT TO UNIT ENTRY 
177777 000746 #-1,UN1(RO) :++G BRANCH IF LAST ENTRY 

RWNDX :1F SO: BR 
000746 000552 UN1(RO) ,UDES SET UNIT DESCRIPTION 
000552 173130 UDES,aC ;LOAD COMMAND REGISTER 
02000C 173102 

AWAIT PIP RESET 


D4 
000002 173072 :SEE IF HAVE BOT 
:1F NOT: BR 
000002 000674 : ;BUMP POINTER 
000011 173042 :DRIVE CLEAR 
:*#+G DO NEXT UNIT 
000001 


022730 ;PRINT HEADER 
005460 012704 026034 #MSG48,R4 
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005464 104000 TTOUTT :PRINT NO BOT 


B RWND5 :+#G DO NEXT UNIT 
000714 000674 RWNDX: UPS ,UNP ;RESTORE UNIT POINTER 
000674 M UNP,R 
000746 000552 UN1(RO) ,UDES RESET UNIT DESCRIPTION 
000552 173022 UDES ,ac2 
005520 000207 PC RETURN TO TEST 
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005522 


005666 


26-APR-78 


032777 


004737 


000001 
006320 


002000 
000660 


000660 
100000 
000660 
000002 
010000 


017406 
000574 
012304 


MACY11 30A(1052) 


173056 


000652 


000662 
172710 


000660 


172734 


000666 


Mm 4 
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FREER AAA AEE A AREER RARARERAAREKKAKEEKEE 


sWRITE ROUTINE: 


; THIS ROUTINE IS USED TO WRITE ONTO TAPE THE BLOCK 
OF DATA DESCRIBED BY THE OPERATOR AND SET UP 

IN THE SEQUENCE FORMATTER. 
HAS BEEN ASSIGNED BY THE SEQUENCE FORMATTER AND 
:1TS PARAMETERS SET IN A UNIT DESCRIPTION WORD. 
sAS EACH RECORD OF THE BLOCK IS WRITTEN, 
:FOR STATUS ERRORS, WORD COUNT ZERO, AND CORRECT CURRENT 
sMEMORY ADDRESS. 
sANY ERROR CONDITION, A WRITE RETRY OF THAT OPERATION 
sMAY BE DONE BY SETTING SWITCH FOUR (4) TO A ONE (1). 
THE RETRY CONSISTS OF A BACKSPACE, ERASE FORWARD, AND 
REWRITE OF THE RECORD. 
sAFTER ALL DATA RECORDS IN THE BLOCK HAVE BEEN 
WRITTEN, THE WRITE ROUTINE WILL EXECUTE A WRITE 
TAPE MARK COMMAND IF THE TTY RESPONSE TM=1 WAS 
MADE AT INITIAL START. 
DATA RECORDS PLUS ONE (IE: 
:1F THE WRITE OPERATION (DATA OR TM) CAUSES THE SELECTED SLAVE 
:TO REACH END OF TAPE (EOT) AND THERE IS TO BE NO READING DONE, 
:(SW2 AND SW3 SET TO A 1) THEN THE SLAVE IS REWOUND AND 
FLAGGED AS UNAVAILABLE FOR TESTING UNTIL ALL SLAVES HAVE 
REACHED EOT AND BEEN REWOUND AT WHICH *!ME TESTING IS 

sRESUMED ON ALL AVAILABLE SLAVES. 

WRITE RETRY MAY BE ALLOWED VIA CONSOLE SWITCH FOUR (4). 


THE TAPE UNIT TO BE USED 


IT IS CHECKED 
IF THE WRITE OPERATION RESULTS IN 


(SEE WRITE RETRY SUBROUTINE) 


THE TM IS COUNTED AS TOTAL 
IF 100 DATA RECORDS; TM=RECORD 101) 


ae ta MAY BE DISALLOWED VIA CONSOLE SWITCH 
4 Rs TAPE MAY BE DISALLOWED VIA CONSOLE SWITCH 


PTTTUTITTITTITITTITITITITTTTITTTITT TTT TT TTT TTT T Tritt 


#1,aSWR 

WRTE 

WEX 

RCNT,RO 
#MSG5S,EMADDR 
FACNT ,@FC 
#WDATA,@BA 
#60,MTC1 
#W1,RTRN 


TAPG 
#2000,aDS 
We 

EQTREC 

wd 
RO,EQTREC 
#100000 ,EOTREC 
EQTREC 
#2,R0 
#10000 ,aswR 
wi 

PC,ERCHK 


WSTAL,STAL 
PC, STALL 


SEE IF SHOULD WRITE 


IF NOT: BR 

;RO=RECORD COUNT 

SET ERROR MSG ADDRESS 
;LOAD CHAR COUNT 

SET DATA ADDR 

SET WRITE OP COMMAND 
:SET RETURN ADDRESS 
+60 EXECUTE COMMAND 


3 : BR 
ey BRANCH IF “WRITTEN PAST EOT 


:SAVE EOT RECORD NUMBER 
:+#+G SET EOT FLAG 
3+#+G ADJUST RECORD COUNT 
3++#G SET RO TO WRITE 1 MORE RECORD 
SEE IF SHOULD CHECK ERRORS 

IF NOT: BR 

:60 CHECK A cee 
:SET DELA 
: DELAY 
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005737 
001401 


005264 


000712 


000706 
000674 


000020 


000722 
102700 


022730 
026543 


011260 
000674 
001050 
002000 
026257 


000702 


000712 


000564 
000676 


021216 
010000 


000004 
027456 
000001 
020234 
027456 
017504 
000712 
000706 


000674 
001070 


MACY11 30A(1052) 


172654 


172602 


000652 


000662 
172464 
172370 


021132 
021140 


W3A: 


W4: 


W4A: 


W5: 


W6: 


WIM: 


WTMO: 


WIM1: 
WIM2: 


WTM3: 


N 
16-MAY-78 09:48 
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RTYFL ;SEE IF RETRY TIME 
W3A : IF NOT: ae 
PC ZELSE RETUR 
SERFL :SEE IF URITE ERROR 
W5 :1F NOT: BR 
UNP ,R4 
WTER1(R4) ;BUMP WRITE ERROR 
SERFL :CLEAR STATUS ERROR FLAG 
#20, aSWR ;SEE IF RETRY 
w5 :1F NOT: BR 
ERSAV,R3 
#102700,R3 :MASK UNRECOVERABLE ERROR 
w& :1F SO: BR 
PC,PAPRT [PRINT HEADER 
#MSG78,R4 

PRINT NON-RETRYABLE ERROR TAG 
+ ames PRINT ER FOR NON-RETRYABLE 
Ww 
UNP ,R4 
RTY1(R4) ;BUMP RETRY CNTR 
#2000 ,aSWR :SEE IF PRINT ERRORS 
Woh :1F NOT: BR 
#MSG64 ,R4 

PRINT ORIGINAL ERROR TAG 
RTCNT ;CLEAR RETRY NUMBER 
RPCNT :CLEAR REPEAT COUNTER 
PC,WRTY :GO RETRY WRITE ERROR 
RTYFL ;CLEAR RETRY COUNTER 
RO SEE IF DONE ALL 
WO :1F NOT: BR 
TMEX :SEE IF TM 
WEX IF NOT: BR 
TMFLG ;SET TM FLAG 
#MSG54,EMADDR ;PCINT TO TM ERROR MSG 
#26,MTC1 :SET TM OP CODE 
#0,aFC ;LOAD FRAME COUNTER 
#WDATA,@BA ;LOAD BUS ADDRESS 
hea RTRN SAVE RETURN ADDRESS 


#0000, ,@SWR 


#4,aDS 


wT 
#WDATA,CADER 


#1,DRVER 


oR4 
WTER1(R4) 


sWRITE TM 
SEE IF SHOULD CHECK ERRORS 


: SEE Y TM STATUS 
IF BR 


i SET EXPT BUS ADDRESS 
: INDICATE ERROR 
:PRINT TM ERROR 


SET EXPT ADDRESS 

:GO CHECK FOR OTHER ERRORS 
:SEE IF RETRY 

:1F NOT: BR 

ELSE RETURN TO RETRY ROUTINE 
SEE IF WRITE ERROR 

;1F NOT: BR 


;BUMP WRITE ERROR 


SEQ 0052 
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2381 006214 032777 000020 


2383 006224 013703 000722 
2384 006230 042703 102700 


2386 006236 004737 022730 
2387 006242 012704 026543 


388 
2389 006250 004737 011260 
2391 006256 005037 000700 
2392 006262 013704 000674 
0 2 
2395 006276 032777 002000 
396 006304 
2397 006306 012704 026257 
2399 006314 004737 006362 
2400 006320 005037 000712 
2401 006324 005037 000676 
2402 006330 005737 000660 
2404 006336 017703 172244 
2405 006342 042703 177763 
2406 006346 022703 000014 


006352 
2408 006354 000137 004424 
2409 006360 000207 


MACY11 30A(1052) 


172364 


172302 


WTM4: 


WIM4A: 


WEX: 


WRW: 


WRWX: 
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#20,aSWR 7SEE IF SHOULD RETRY 
WEX ;1F NOT: BR 
ERSAV,R3 
#102700,R3 ;MASK UNRECOVERABLE ERROR 
WTM4 :1F SO: BR 
PC, PAPRT PRINT HEADER 
#ASG78,R4 

;PRINT UNRETRYABLE TAG 
+S ated ;PRINT ER FOR NON-RETRYABLE 
id 
RPCNT ;CLEAR REPEAT CNTR 
UNP ,R4 
RTY1(R4) 7BUMP RETRY CNTR 
RTCNT ;CLEAR RETRY CNTR 
#2000,aSWR 3SEE IF PRINT ERRORS 
WIM4A 3 IF NOT: BR 
#hSG64 ,R4 

PRINT — ERROR TAG 
PC,WRTY 760 DO RETR 
RTYFL 7 CLEAR RETRY FLAG 
TMFLG CLEAR TAPE MARK FLAG 
EOTREC 3++#G BRANCH IF NOT AT EOT 
WRWX 3++G 
aSwR,R3 
#177763,R3 
#14,R3 sSEE IF WRITE ONLY 
WRWX ;IF NOT: BR 
REOT ELSE REWIND 


PC TEXIT 


SEQ 0053 


On 


es 
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MACY11 30A(1052) 
peteteeeeetertererereetes 
WRITE ERROR RETRY 
Seeeteeeeeeeeereteererete 


#1, RTVFL SET RETRY FLAG 


006362 012737 000001 000712 wRTY: 
006370 


006632 


005364 


006764 
000676 


005542 


006052 
000706 


000700 
000004 


002000 
026736 
026301 
000702 
000646 
000722 
102700 


022730 
026543 


011260 
000001 


002000 
027172 
026301 
000702 
027214 
000700 
000646 
000646 
000702 


000674 
001070 


WRTYO: PC,WRTSB 
TMFLG 
WRTYTR 
PC,WO 
B WRTYR 
WRTYTM: PC WIM 
WRTYR: SERFL 
WRTY2 
RPCNT 
#4,RPCNT 
WRTYO 


Anon -@SWR 
#MSG105,R4 


#ASG65,R4 
RTCNT,R3 


PC 
ay 


R3 
7102700, R3 
WRTY2A 
PC,PAPRT 
#MSG78,R4 


000700 
172142 


000646 . 
172042 WRTY2A: . 


WRTY2B 
#2000,aSWR 
WRTYS 
#MSG110,R4 
#MSG65,R4 
RTCNT,R3 
#MSG111,R4 
RPCNT,RS 


WRTY2B: 


P,R4 
WTER1(R4) 


:GO SPACE REVERSE FOR REPEAT 
;SEE IF TAPE MARK TIME 


:I1F SO: BR 

;REWRITE RECORD 

:GO ON 

;GO WRITE TAPE MARK AGAIN 
REWRITE GOOD 


:1F NOT: BR 

;BUMP REPEAT COUNTER 

:SEE IF FOUR GOOD REPEATS 
7; IF NOT: REPEAT 

;SEE IF PRINT 

IF NOT: BR 


:PRINT RECOVERED MESSAGE 

sPRINT RETRY TAG 

sPRINT RETRY NUMBER 

;RESUME TESTING 

3+#G CLEAR RECOVERABLE ERROR FLAG 
;GET ER 

;MASK RECOVERABLE BITS 


7 1F RECOVERABLE: BR 
;PRINT HEADER 


;PRINT -* ads ieee MSG 


PRINT E 


SET FLAG 


sSEE IF PRINT 
s1F NOT: BR 


;PRINT BAD TAPE SUSPECT 
PRINT RETRY TAG 

PRINT RETRY NUMBER 
:PRINT REPEAT TAG 
PRINT REPEAT NUMBER 


‘se IF hy NON~RECOVERABLE 


F NOT: 
CLEAR FLAG 


sEXIT 
: SEE - FIRST RETRY 
F NOT: BR 


;DECREMENT WRITE ERROR CNTR 





py TMO2-TU16/TE16 RELIAB 


TUAH.P11 


006760 


006764 


007154 
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013704 


000137 


005037 


000137 


000674 
001030 
172054 


172046 
000730 


000654 
000040 
000554 


000040 


007160 
000702 
000004 


000674 
001050 
000732 
006370 
007400 


000706 
000576 
012304 
026312 
177777 
033464 
012234 
000706 


000002 
004424 
000732 


000732 


000706 
007036 


MACY11 30A(1052) 


000730 


172012 


000702 


000666 
000652 


171500 
171470 


000724 


000652 


000672 
171370 
000662 


WRTY3A: MOV 
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UNP,R4 : 
BTADDR(R4),BIPT ; 
T,R4 : 


RTY1(R4) 
ERTFL 
WRTYO 
BTUR 


SEQ 0055 


UNIT NUMBER 

ADDRESS OF UNIT BAD TAPE CNTR 
COUNTER 

POINTER OFFSET 


ABSOLUTE POINTER 
BLOCK NUMBER 
RCNT OFFSET 


SET RECORD NUMBER 

: CORRECT RECORD NUMBER 

:SEE IF TOO MANY BAD SPOTS 
:1F NOT: BR 

ELSE GO TO BAD TAPE OVERFLOW 
;BUMP RETRY COUNTER 

SEE IF DONE 4 RETRIES 

: IF SO: BR 


;BUMP RETRY COUNTER 

SET ERASE FLAG 

:D0 NEXT RETRY 

sELSE GO TO BAD TAPE UNRECOVERABLE 


sWRITE RETRY BACKSPACE-ERASE SUBROUTINE **teeenene 


WRTSBO: 


WRTSB1: 


WRTSB2: 


WRTSB3: 


SERFL 
TSTAL,STAL 
PC, STALL 
#MSG66, EMADDR 
#-1,aFC 
#RDATA, @aBA 
PC,BKRT 
SERFL 
WRTSB1 
#2,BTFLG 
(SP)+, (SP)+ 
REOT 


SERFL 
#SG67,EMADDR 
arc 


#24 ,MTC1 
#WDATA,@BA 
#WRTSB3,RTRN 
TAPG 


WRTSBO 


;CLEAR FLAG 


;DO0 TURN AROUND DELAY 

;SET ERROR CODE 

:SET TO BACKSPACE 1 RECORD 
SET BA 

:GO BACKSPACE 

;SEE IF ERROR 

:1F NOT: BR 

SET FLAG 

RESET STACK 

:GO REWIND AND REMOVE FROM TESTING 
:SEE If ane ERASE 


RN 
“CLEAR ERASE FLAG 
;CLEAR REPEAT CNTR 
CLEAR FLAG 
;SET ERROR CODE 
sCLEAR FRAME COUNT 
7SET ERASE OP-CODE 
:SET BA 
;SET RETURN ADDRESS 
:GO ERASE 
7SET EXPT BA 
G60 CHECK ERRORS 
SEE IF ERROR 
;1F NOT: BR 
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;BAD TAPE OVERFLOW SUBROUTINE tteeeeneee 


005037 000712 BTOV: CLEAR RETRY FLAG 
000001 000724 SET BAD TAPE OVERFLOW FLAG 
:+#G ADJUST STACK 
004424 J E ;GO REWIND AND REMOVE FROM TESTING 
000730 BTOVO: ; SET TABLE POINTER 


BTOV1: 


;R3=R3/2 FOR CORRECT NUMBER 
;PRINT ENTRY NUMBER 
025046 — R4 


(R4)+ :SKIP CR/LF 
;PRINT BLOCK NUMBER TAG 
(R1),R3 


PRINT BLOCK NUMBER 
025054 MOV #ASG14,R4 
PRINT RECORD NUMBER TAG 
000040 ADD #40,R1 :SET POINTER OFFSET FOR RECOED NUMBER 


(R1)+,R3 
PRINT RECORD NUMBER 


000040 ;RESET POINTER FOR BLOCK NUMBER 
171444 ;SEE IF DONE 
2 SO: BR 


025377 
3:00 CR/LF 
B ; CONTINUE 
000726 : ; SEE If STAT ONLY PRINT 
B :1F SO: BR 
000041 7 SET SIZE OF TABLE 
000730 SET POINTER 
:CLEAR TABLE 
SEE IF DONE 
B IF NOT: BR 
007322 000207 : 7; RETURN 
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007324 


007374 


007400 
007404 
007410 
007412 


012704 


000137 


004737 
012704 
104000 
000207 


025377 
000674 


001030 
171360 


027226 
171340 


007200 


022730 
027041 


MACY11 30A(1052) 


000730 


R 
BIPRT1: 
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;BAD TAPE STATISTIC PRINTteeteeee 


#MSG28,R4 
D0 CR/LF 
UNP ,R4 


BTADDR(R4),BTPT ;SET TABLE POINTER 
aBIPT,R3 


R3 ; CORRECT NUMBER 
;PRINT NUMBER OF BAD SPOTS 
#MSG112,R4 


PRINT BAD TAPE TAG 
aBTPT :SEE IF ANY BAD SPOTS 
BIPRT1 IF SO: BR 
PC sELSE RETURN 
BTOVO PRINT STATS 


BAD TAPE UNRECOVERABLE SUBROUTINE *##eeeeeee 


JSR PC,PAPRT PRINT HEADER 

MOV #MSG107,R4 

TTOUTT PRINT UNRECOVERABLE BAD SPOT MSG 
RTS PC RESUME TESTING 


SEQ 0057 
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FREER EAE R EERE EERE REET E AERA AAR AATEAREAEE ARERR 


;READ SEQUENCER: 


STHIS ROUTINE IS USED TO DETERMINE THE SEQUENCE 

; IN WHICH READ TAPE OPERATIONS ARE TO BE PERFORMED. 
THIS IS NECESSARY WHEN THE UNIT BEING TESTED IS 
CAPABLE OF READING DATA IN BOTH THE FORWARD AND 
sREVERSE DIRECTIONS. CONSOLE SWITCHES ONE (1), TWO (2), 
sAND THREE (3) ARE USED TO DETERMINE THE READ SEQUENCE. 
:CONSOLE SWITCH ONE (1) DETERMINES WHETHER TO READ 

THE BLOCK OF DATA FORWARD FIRST OR REVERSE FIRST. 
SWITCH TWO (2) DISALLOWS READING IN THE REVERSE 
sDIRECTION AND SWITCH THREE (3) DISALLOWS READING IN 
THE FORWARD DIRECTION. 


FRR ARETE EAE ERE RAE A AEE AKKARKEREKEEE 


007414 012737 000002 000562 : #2,ROCMD 
171160 @SWR,R4 READ SWITCHES 
177763 #177763,R4 :MASK READ BITS 
R4 :SEE IF BOTH READS 
RSR IF NOT: BR 
000002 171142 #2,aSWR sSEE IF “READ REVERSE FIRST 
RSFR :1F NOT: BR 
000004 171132 : aes 4h z SHOULD READ REVERSE 
S ; IF N 
010000 000562 #10000, RDCMD ;LOAD READ REVERSE COMMAND 
007732 PC,READ :GO READ REVERSE 
000010 171110 : #10,aSWR ;SEE IF _ SHOULD READ FORWARD 
RSEX :1F NOT: BR 
010000 000562 b> a ats :SEE IF HAVE READ REVERSE 


ZI1F NOT: 
000576 000666 TSTAL,STAL 
012304 :DO READ STALL 
007542 
000001 171052 : sSEE IF WRITE 
RSF :1F NOT: BR 

012056 3GO BACKSPACE 

000562 : + A FORWARD COMMAND 
000660 : + 3906 BRANCH IF NOT AT EOT 
+G 


004424 ong ELSE GO REWIND 
007566 000207 :++G EXIT 


007570 012737 010000 000562 

000010 171002 0,aSWR i= i —s READ FORWARD 
: NOT: 

000001 170772 :SEE IF WRITE 
:1F NOT: BR 

012056 J 3GO BACKSPACE TO START 

000002 000562 : ;LOAD READ FORWARD COMMAND 

007732 J 7GO READ FORWARD 

000004 170744 : ;SEE IF —- READ REVERSE 


RSEX F NOT 
010000 000562 #10000,RDCMD 
007652 001005 RSFR2 ;1F READ REVERSE: BR 





Quad Crd Cd Crd Cd Cd Cd Cd Cat Cd (Cd Cad Gd Gad Cd ad Cad Cad Gad Cd Cad Gd Gad Gad Gad Ca Gad Cad Gad Gad Gad Cad Cad ad Gad Cad Cd ad Cad Cad Gad Gad Cad Cad ad Gad Gat Cd Cad Cad Cd Cd Cd Cd UC 
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007654 013737 000576 000666 ae ti STAL ;D0 READ STALL 
012304 J PC, STALL 
010000 000562 RSFR2: #10000, RDCMD ;LOAD READ REVERSE 
007732 J PC,READ 3GO READ REVERSE 
000660 EOTREC ;SEE IF AT END OF TAPE 
RSFRX 3;++G IF NOT: BR 
000554 000660 RCNT ,EOTREC 
000660 EQTREC ;SET TO PROPER RECORD NUMBER 
000660 EQTREC 
004424 J REOT sELSE GO TO REWIND 
007730 000207 : PC sEXIT 
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MARR ARARAABRBARASRSARLSSAAAAAASEEAASLEALESESES ESE SESE SSE SS 


“READ ROUTINE: 


THIS ROUTINE PERFORMS THE READ OPERATION DETERMINED 

BY THE READ SEQUENCE ROUTINE ONE RECORD AT A TIME. 

:AT THE END OF EACH READ OPERATION THE STATUS REGISTER 
31S SCANNED FOR EITHER END OF TAPE OR BEGINNING OF TAPE. 
:1F EOT WAS REACHED, CONTROL WILL BE PASSED TO 

; THE EOT SUBROUTINE TO REWIND THE UNIT AND FLAG IT 
UNAVAILABLE UNTIL ALL UNITS HAVE REACHED EOT. 

:1F BOT WAS REACHED AN ERROR IS PRINTED AND THE 

PROGRAM WILL HALT. TESTING MAY BE RESUMED BY PRESSING 
THE CONTINUE SWITCH. 

IF A TAPE MARK IS EXPECTED (TM=1) THEN THE 

sREAD ROUTINE EXPECTS THE FIRST RECORD OF A 

sREAD REVERSE TO BE A TM, AND THE LAST RECORD 

:O0F A READ FORWARD TO BE A TM. REMEMBER 

THAT THE TM ADDS ONE (1) TO THE TOTAL NUMBER 

;OF RECORDS IN A BLOCK. 

CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13) DETERMINE WHETHER 
;OR NOT TO CHECK FOR STATUS ERRORS (11) OR DATA ERRORS (13), 
CONSOLE SWITCH FIVE (5) IS USED TO CAUSE A CONTINUOUS 
s;READ AND SPACE (FORWARD OR REVERSE) OF THE CURRENT 
RECORD ON TAPE (YOZZLE). 


SRR AAA ATER EEA EAA REREEEEKKEE 


007732 013700 000554 2 RCNT,RO SEE. REC CNTR 


007736 000660 — 


T: BR 
010000 000562 £10000, »ROCMD :SEE IF ~ FORWARD 
100000 000660 #100000,EOTREC ;CLEAR FLAG 
000660 EOTREC,R3 :GET noDIF ED ~~ COUNT 
R3,RO ;SET RECORD A 
RO SET TO PROPER NUMBER OF RECORDS 
024761 000652 : oer EMADDR SET ERROR MSG ADDRESS 
000676 FLG 
010000 000562 #10000, RDOCMD 
RDO 71F READ oe BR 


000564 SEE IF T 
IF NOT: BR 
000676 4 SET TM FLAG 


000556 170460 : FMCNT ,aFC ;LOAD CHAR CNTR 
033464 170450 #RDATA,@BA ;LOAD DATA ADDR 
010000 000562 4» aaa ties :SEE IF by REVERSE 


RDIA 71F NOT: 

000556 4 leans 

000020 000552 #20,UDES SEE IF CORE DUMP 
RD1 :1F NOT: BR 


R3 3R3 = FC/2 
170412 : R3,aBA SET REVERSE BUS ADDRESS 
000076 000672 #76, MTC1 SET READ REVERSE 
010110 000403 RD1B 
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010112 012737 000070 
010132 
021216 
010000 
000020 
000020 
002000 
000676 
000660 
100000 
000002 
022730 
025160 
003160 
004000 
000676 
000004 
033464 
000002 
020234 
000674 
010000 
001150 
001110 


033464 
010000 


002000 
000002 
000556 
000020 


000001 
002000 


010432 162703 000002 


MACY11 30A(1052) 


000672 
000662 


000562 
170352 
170342 
170332 


000660 


170302 


170336 


170234 


021132 
021140 


000562 


000562 
000552 


000552 


000552 


RDIA: 
RD1B: 
RD1D: 


RD2: 


RD2A: 
RD2B: 


#70,MTC1 
R02, RTRN 


110000, RDCMD 
RD3 
#20,aDS 
RD2B 
#20,aDS 
RD2A 
#2000,aDS 
RD3 

TMFLG 

RDS 

RO, EOTREC 


-EOTR 
#100000 ,EOTREC 


#2,aDS 
RD4 
PC,PAPRT 
#MSG22,R4 


STARTA 
#4000, aSwR 
RDS 


RD4A 
#RDATA,CADER 
#2,DRVER 

PC ERPT 

UNP ,R4 

\ easateantes 
RDERR1(R4) 
RD6 
RDER1(R4) 
RD6 
#RDATA,R3 
#10000, ROCMD 
RD4A 


D4A0 
#2000,UDES 
RD4A2 


FMCNT,R4 
R4 
#20,UDES 
RD4A1 

R4 

R4,R3 
#1,R3 
#2000,UDES 
RD4A2 
#2,R3 
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SET READ FORWARD 


;SET INTERRUPT RETURN ADDRESS 


:GO EXECUTE TAPE COMMAND 
SEE IF READ REVERSE 
:1F SO: BR 


; AWAIT SWDN 


AWAIT TUR 
;SEE IF EOT 
7 IF NOT: BR 
;SEE IF TM 
:1F SO: BR 


;SET EOT FLAG 

;SEE IF AT LOAD POINT 
;1F NOT: BR 

sPRINT CYCLE NUMBER 


PRINT BOT ERROR 


sRESTART 
SEE IF SHOULD CHECK ERRORS 
;1F NOT: BR 


: IF NO TM EXPT: BR 


:1F TM RECVD: BR 

SAVE EXPT BUS ADDRESS 
:SET TM STATUS ERROR FLAG 
:GO PRINT TM ERROR 


:SEE IF _READ REVERSE 
:1F NOT: BR 
: BUMP READ REVERSE ERROR 


;BUMP READ FORWARD ERROR 


;SEE IF READ REVERSE 
IF SO: BR 
;SEE IF IN PE 

SO: BR 


:SEE IF CORE DUMP 
7; 1F NOT: BR 


SET TO FC/2 

SET EXPT BUS ADDRESS 
MAKE EXPT ADDRESS EVEN 
;SEE IF IN PE 

IF SO: BR 


SEQ 0061 
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010436 004737 017504 RD4A2: 


017406 RD4B: :GO CHECK ERRORS 


000706 RD4C: 
;1F NO ERROR: BR 


000674 NP ,R4 
010000 000562 ee : SEE . ~ REVERSE 


cif $ 
001110 oa :BUMP READ FORWARD ERROR 


001150 : RDERR1(R4) ;BUMP READ REVERSE ERROR 
: PC,RDRTY 3GO RETRY 
RTYFL CLEAR RETRY FLAG 
020000 170064 : oe ,@SWR ;SEE IF SHOULD DO DATA CHECK 


:1F NOT; BR 
000676 


015544 :GO CHECK DATA 

000706 : :CLEAR STATUS ERROR FLAG 

014352 CLEAR BUFFER 

000040 170032 SEE IF SHOULD YOZZLE 
RD? 7 1F NOT: BR 

011274 . ELSE GO YOZZLE 

000572 000666 : RSTAL,STAL :SET ‘wae 

012304 PC,STALL 7STAL 

010000 000562 #10000, RDCMD ‘SEE IF READ REVERSE 
RD7A :1F NOT: BR 

000676 ; CLEAR TAPE MARK FLAG 


000660 : sSEE IF OT FOUND 
:1F NOT: BR 
000001 > 7 SET TO EOT 
:1F DONE ALL: BR 
010030 RDO 
010000 000562 : ° ; READ REVERSE 
RDEX ;1F SO: BR 
000660 ; FOUND EOT 
;1F SO: BR 
000564 : a 
000676 : TM FOUND 
:I1F SO: BR 
000676 sELSE SET FLAG 
SET RECORD COUNT TO ONE 
010030 :GO READ TM 


00067¢ ie: 
010704 000207 : sEXIT 
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FURR AERA EEA A AERA EERE EEA AEE RAAKAEKKEEKKEEE 


READ ERROR RETRY SUBROUTINE: 


THIS SUBROUTINE WILL RETRY ALL DATA RELATED 
;READ ERRORS UP TO EIGHT (8) TIMES. IF ALL 
FOUR RETRIES ARE BAD, IT IS CONSIDERED 

A HARD ERROR. IF ANY ARE GOOD, IT ISA 
;SOFT ERROR. RETRIES MAY BE INHIBITED 

VIA SWITCH FOUR (SW4=0: INHIBIT RETRIES) 


FRR AREER AAAA AEE AA AE AEEAEE AERA KERAKEEKEKEKEKERE 


032777 000020 167672 : #20,aSWR 7 SEE Al RETRY INHIBITED 
B RDRTO IF NOT: BR 
PC ELSE ORETURN 
000722 


ERSAV,R3 

102700 *ozv60, R3 MARK NON-RECOVERABLE ERROR BITS 
RDRT1 7; 1F NOT: BR 

022730 PC,PAPRT PRINT HEADER 


026604 0 #MSG79,R4 

PRINT NON-RECOVERABLE MESSAGE 
011260 JSR PC,NRTP :PRINT ER FOR NON-RETRYABLE ERROR 

RDRT1A: PC ; RETURN 
002000 167626 RDRT1: aooate @aSwWR ;SEE IF PRINT INHIBITED 
RDRT :1F SO: BR 

026257 0 ImSG66, R4 

PRINT ORIGINAL ERROR TAG 


000702 RDRT1B: RTCNT ;CLEAR RETRY COUNTER 


RDRTG: SERFL ;CLEAR STATUS ERROR FLAG 
000712 #2, RTYFL ;SET READ RETRY FLAG 
PC,YOZ :GO0 TO YOZZLE TO RETRY READ 
000706 SERFL ;SEE IF ~ A ERROR 
: B 


RORTS :1F SO 
002000 167560 #2000 ,aSWR 

RORT2 
026736 V #MSG105,R4 
026301 V #MSG65,R4 


PRINT RETRY TAG 
000702 RTCNT,R3 

PRINT RETRY NUMBER 
000674 


: UNP ,R4 
010000 000562 #10000 ,RDCMD ;SEE IF READ REVERSE 
RORTS :1F SO: BR 
002670 be Ala ;ELSO BUMP FORWARD SOFT ERROR COUNTER 
002710 : RRSOFT(R4) :BUMP ERRORS SOFT CNTR 
PC ETURN 


3 iR 
000646 : TEMPS :++#G CLEAR RECOVERABLE ERROR INDICATOR 
000722 ERSAV,R3 :GET ER 
102700 #102700,R3 MASK RECOVERABLE BITS 

RDRTSA 7 1F RECOVERABLE: BR 
022730 PC,PAPRT :PRINT HEADER 


026604 V #MSG79,R4 
PRINT NON~RECOVERABLE MSG 
011260 JSR PC,NRTP :PRINT ER 
012737 000001 000646 #1, TEMPS SET FLAG 


:PRINT RECOVERED MESSAGE 


bp eh ph 4 tee 4 
ANOLON 
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071260 
511264 
011266 
011272 


000404 


000207 


013703 
104002 
004737 
000207 


002000 
026301 
000702 
000646 
000646 


000702 
000702 


027271 


000674 
010000 


002730 
002750 


000722 
021156 


. % 
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B 
167432 RDRTSA: 


RDRT5B: 


000602 


000562 


RDRT5B 
#2000, aSWR 
RDRT6 
#ASG65 ,R4 


RTCNT,R3 


RTCNT 
RTCNT,RETRY 
RORTG 
#MSG115,R4 
UNP ,R4 
#10000, RDCMD 
RDRT7 
RFHARD(R4) 
RORTX 
RRHARD (R4) 
PC 

ERSAV,R3 


PC,FRPRT 
PC 


SEE IF PRINT INHIBITED 
;1F SO: BR 


:PRINT RETRY TAG 


;PRINT RETRY NUMBER 

;SEE IF DID NON-RECOVERABLE 
IF NOT: BR 

; CLEAR FLAG 

sEXIT 


;SEE IF DONE 8 RETRIES 
3;1F NOT: BR 


PRINT HARD ERROR MESSAGE 
;SEE IF READ REVERSE 

:1F SO: BR 

;BUMP FORWARD HARD ERROR CNTR 
;BUMP REVERSE HARD ERROR CNTR 
; RETURN 


;GET ER REGISTER 
PRINT ER 

;PRINT F OR R 
RETURN 
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FERRARA AREA AERA EATER AAA A EAA AERA AREREAAKEEEARES 


;YOZZLE SUBROUTINE: 


THIS SUBROUTINE, ENTERED VIA SWITCH FIVE (5), IS USED TO PERFORM 
3A CONTINUOUS READ AND SPACE OVER OF THE CURRENT RECORD ON TAPE. 
;FULL STATUS “ND DATA CHECKING MAY BE PERFORMED 

[OR NOT VIA CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13). 

zA SOFTWARE DELAY IS PERFORMED BETWEEN EACH READ 

SAND SPACE OPERATION AND MAY BE VARIED BY TYPING 

:CNTRL C ON THE TTY AND ENTERING A VALUE IN RESPONSE 

;TO THE PRINTED REQUEST. 


SERRA AEA ARER AAA RARER AAA EATER EAA E EAA EE EKER EEE 


011274 012777 000001 167306 : #1,aTKS ;SET TTY ENABLE 
000666 YSTAL,STAL 
PC, — 3:00 YOZZLE STALL 
167174 : #-1 ;SET TO 1 RECORD SPACING 
010000 000562 #10600, RDCMD ;SEE IF READ REVERSE 


IF NOT: BR 
000030 000672 #30, ;SET TO SPACE FORWARD 
Y 


000032 000672 : #32,MTC1 ;SET TO SPACE REVERSE 
011370 000662 : #YOZC,RTRN ;SET RETURN ADDRESS 
177775 000666 #177775,STAL :SET TIME MULTIPLIER 
021216 :G0 YOZZLE 
000676 : ;SEE IF 

1$ ;1F NOT: BR 
040000 000666  emeaitens 7SET TM STALL 


000600 000666 : YSTAL,STAL 

012304 : PC, STALL 300 YOZZLE STALL 

033464 167066 #RDATA,@BA SET BUS ADDRESS 

010000 000562 #10000, RDCMD ;SEE IF READ REVERSE 
yozc1 ;1F NOT: BR 

000556 4 ages 


R 
000020 000552 #20,UDES SEE IF CORE DUMP 
yozco :1F NOT: BR 


R R3 ¢R3 = FC/2 
167030 : R3,@BA ;SET REVERSE BUS ADDRESS 
000076 000672 M th Pr SET READ REVERSE 
Y 


B 
000070 000672 : #70,MTC1 SET READ FORWARD 
167006 : FACNT ,@FC SET CHARACTER COUNT 
000662 #YOZD,RTRN SET RETURN ADDRESS 
J TAPG :GO READ 
004000 167056 : #4000, aSWR SEE IF SHOULD CHECK ERRORS 
YOZE :1F NOT: BR 


000676 TMFLG 7SEE IF TAPE MARK TIME 
YOZD1 z1F NOT: BR 

010000 000562 #10000 ,RDCMD SEE IF READ REVERSE 
YOZD0 ;1F NOT: BR 

033464 #RDATA,R3 


000556 FACNT,R4 
005104 RG 
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011562 032737 000020 000552 #20,UDES SEE IF CORE DUMP 
2 YOZD4 :1F NOT: BR 


R4 ;SET TO FC/2 
: R4 RS SET EXPT BUS ADDRESS 
000001 #1,R3 MAKE EXPT ADDRESS EVEN 
002000 000552 #2000 ,UDES SEE IF PE 
YOZD2 IF SO: BR 
:SET EXPT BA 
017504 : :GO CHECK ERRORS 


033464 : 
002000 000552 SEE IF PE 
0703 ;IF SO: BR 
3SET EXPT BA 
017504 : 3GO CHECK ERRORS 


017406 : sELSE GO CHECK ERRORS 
020000 166724 SEE IF SHOULD CHECK DATA 
YoZ IF NOT: BR 
000676 ;SEE IF TAPE MARK 
:1F SO: BR 
000712 ;SEE IF RETRY 
:1F SO: BR 
015544 sELSE GO CHECK DATA 
014352 ;GO CLEAR DATA AREA 
166674 : SEE IF HAVE NEW STALL VALUE 
IF NOT: BR 


YOZG 
000203 166666 oe SEE IF CONT C 
Y 


:1F NOT: BR 
025761 V #ASG44 ,R4 
PRINT YSTALL REQUEST 


000600 YSTAL,R3 
PRINT PRESENT STALL 
000646 RO, TEMPS SAVE ROCREC CNT) 
#YSTAL,RS SET ADDRESS OF YSTL 
6,R1 ;SET NUMBER OF CHAR TO INPUT 
SET MAXIMUM LIMIT 
SET MINIMUM LIMIT 
:GO GET VALUE 
sRESTORE ROCREC CNTR) 
J YOZ RESTART YOZZLE 
000207 166602 : + + + ada CHECK FOR CNTL G 
Y 


000176 000606 oe :1S SWREG SELECTED 
Y 


166564 CLEAR CNTL G OUT OF BUFFER 

024444 JS :GO CHANGE SWREG 

000040 166546 SEE IF SHOULD CONTINUE YOZZLE 
YOZH :1F NOT: BR 

011314 


J Z 
000100 166534 yeti + INTERRUPT ENABLE 
7 EX 


012054 000207 
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012056 


012302 


013737 


000207 


000576 


000564 


177777 
000032 
012140 
021216 
010000 


026173 
000004 


033464 
020234 


033464 
017504 
000554 


025011 


012304 
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000666 
000652 
166410 


166376 
000672 
000662 
166440 


000652 
166336 


021132 


000652 


000672 
000662 


000666 
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FERRARA AAA AAATAAA RAAT EAA AREAAREARARAREREE 


;BACKSPACE SUBROUTINE: 


THIS SUBROUTINE IS USED TO PERFORM THE 
;BACKSPACE OPERATION REQUIRED BY THE READ 
ROUTINE FOR READ FORWARD AFTER WRITING. 

:1F A TAPE MARK IS EXPECTED (TM=1) THEN THE SPACE 
ROUTINE ASSUMES THAT THE TM WILL BE FIRST WHEN 
;BACKSPACING. 
:TO SPACE OVER A BLOCK. 
SPACE OVER THE DATA RECORDS. 

zA CHECK FOR RECORD COUNT ZERO IS MADE AT THE 
END OF THE SPACE OPERATION TO ASSURE THAT PROPER 
; TAPE POSITIONING WAS DONE. 


FERRARA AAA AAA EA EAAEAARAAAEAEREARERERAAEAAAKEKAKEKREREE 


THEREFORE TWO OPERATIONS ARE REQUIRED 
FIRST SPACE OVER THE TM, THEN 


TSTAL,STAL 
PC, STALL 
#"SG10,EMADDR 


;D0 TURN AROUND STALL 


;SEE IF 

z1F NOT: BR 
aBKIR, RTRN 
#10000 ase 
60 
#MSG55,EMADDR 
#4,a0S 


;SPACE TO TM 
SEE IF SHOULD CHECK ERROR 
:1F NOT: BR 


;SEE IF TM 
IF SO: BR 


BKTMO 
#RDATA,CADER 
PC,ERPT ;PRINT ERROR 


BO 
#RDATA,R3 
PC,ER2 
RCNT,RO 
RO ;BUILD SPACE AMOUNT 


SET ERROR MESG ADDRESS 


SET SPACE REVERSE 

7SET RETURN ADDRESS 

;SET INTERRUPT TIME MULTIPLIER 
:GO DO SPACE 


RO 
#MSG10,EMADDR 
RO,aFC 


PC,ER 
TSTAL,STAL 
PC, STALL 
PC 


:D0 STALL 
7 STALL 
sEXIT 





CZ 
C2 
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3060 

3061 FERRARA AAA TAREE AERA ETE A TEETER AAEEAARAREEAAREREKEEE 
306 :STALL ROUTINE: 

3063 $ 

3064 ; THIS ROUTINE IS USED TO PROVIDE SOFTWARE DELAYS 
3065 ;DURING READ, WRITE, TURN AROUND, AND YOZZLE. 

3066 ;THE DELAY TIMES MAY BE SET BY THE OPERATOR AT 
3067 s INITIAL START FROM 200(8) OR MAY BE MODIFIED 
3068 ;AT ANY TIME BY ENTERING CNTRL C ON THE TTY AND 
3069 ; INSERTING NEW VALUES IN RESPONSE TO THE REQUEST. 
3070 ;THE READ STALL AND THE WRITE STALL ARE DELAYS 
3071 sEXECUTED BETWEEN EACH RECORD OF THE DATA BLOCK. 
3072 ; THE TURN AROUND STALL IS EXECUTED EACH TIME 

3073 ;THE DIRECTION OF TAPE MOVEMENT IS CHANGED AND 
3074 ;ALSO EACH TIME THE TAPE OPERATION CHANGES FROM 
3075 sWRITE TO READ OR READ TO WRITE. THE YOZZLE 

3076 7STALL IS EXECUTED ONLY DURING THE YOZZLE ROUTINE. 
3077 PRR REAR EREEEAAAAAAEA ERA E RARER AA AERA E REAR REE 
3078 

3079 012304 005337 000666 STALL: DEC STAL 

3080 012310 001375 BNE STALL DELAY 


3081 012312 000207 RTS PC sEXIT 


E 6 
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FRR RAREAE AERA AEA AA AEA AE AEE AAAEAEEREREKEARAAEAKEEEE 


RANDOM CHARACTER COUNT GENERATOR: 


; THIS ROUTINE ENTERED VIA CONSOLE SWITCH 
SEVEN (7) IS USED TO GENERATE A RANDOM 
CHARACTER COUNT FOR EACH DATA BLOCK. 

sALL RECORDS WITHIN A GIVEN BLOCK WILL BE 
THE SAME, BUT EACH BLOCK WILL VARY. 

;THE LIMITS ARE TWENTY (20) TO FOUR THOUSAND 
(4000) OCTAL CHARACTERS PER RECORD. 


FURR A RAAT AEE AERA RARER EAEEAAEAREREKEKEKKEEEE 


012314 012701 177760 : #-20,R1 SET HIGH LIMIT 
012702 174000 #-4000,R2 SET LOW LIMIT 
004737 023314 PC RANG :GO GENERATE NUMBER 
042737 000001 000626 #1 ,RANSAV 
013737 000626 000556 RANSAV,FMCNT SET CHAR COUNT 
012737 177777 014406 #-1,PATS PRESET DATA PATTERN 
012352 000207 PC sEXIT 


FERRER AAA EERE REE E REE ETEK EKEREEE 


RANDOM RECORD COUNT GENERATOR: 


;THIS ROUTINE ENTERED VIA CONSOLE SWITCH SIX (6) 
:1S USED TO GENERATE A RANDOM NUMBER OF RECORDS 
:FOR EACH BLOCK OF DATA. 


THE LIMITS ARE ONE (1) TO FIVE HUNDRED (500) OCTAL 
RECORDS PER BLOCK. 


FREER ERA EAE EERE EAE EEE EAE EERE EEKKEEKEEEEK 


012354 012702 000001 : #1,R2 ;SET LOW LIMIT 
012360 012701 000500 M #500,R1 SET HIGH LIMIT 
012364 004737 023314 PC RANG :GO GENERATE NUMBER 
012370 013737 000626 000554 RANSAV,RCNT SET RECORD COUNT 
012376 000207 PC sEXIT 


WWWWWW AWWW 
a oo ot 
ek ek st ot 
OONAUSWN-O 
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012400 
012404 
012406 
012410 
012414 
012420 
012424 
012430 
012432 
012434 


005737 


001375 


000634 


000674 
005156 
000010 
000746 
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PERERA REET E ETRE E EERE EERE KERR EKEREKEEEKEE 


; TEST CONDITION ENTRY ROUTINE: 


THIS ROUTINE IS USED TO ALLOW THE OPERATOR 

:TO ENTER, AT THE TTY, THE NECESSARY PARAMETERS 
:TO RUN THE PROGRAM AS HE WISHES. THE 

ROUTINE IS ONLY ENTERED UPON INITIAL STARTING 
;FROM LOCATION 200(8). 

;THE MAIN PURPOSE OF THIS ROUTINE IS TO ESTABLISH 


A TABLE OF DEVICES TO BE TESTED. THIS TABLE 


:CONSISTS OF AN ENTRY FOR EACH OF ONE (1) TO 

EIGHT (8) DEVICES. EACH ENTRY CONTAINS THE 

SLAVE NUMBER, DENSITY, PARITY, AND 

;FORMAT. THE INFORMATION IS ENTERED 

IN RESPONSE TO PRINTED REQUESTS AT THE TTY. 

SLAVES MAY BE ENTERED IN ANY ORDER. EACH 

PARAMETER IS CHECKED FOR LEGALITY BEFORE BEING 

:SET INTO THE TABLE. 

THE ORIVE NUMBER REQUEST WILL ALSO CHECK THE MASSBUS 

:FOR THE PRESENCE OF THE REQUESTED DRIVE. IF IT IS NOT FOUND, 
zA NON-EXIST DRIVE MESSAGE WILL BE PRINTED AND ANOTHER DRIVE 
REQUEST MADE. WHEN THE DRIVE IS FOUND, THE RESPONSE IS STORED 
AND CONTROL PASSED TO THE SLAVE SELECT ROUTINE. 

;THE SLAVE SELECT ROUTINE ALSO CHECKS FOR THE PRESENCE OF THE 
sSLAVE. IF IT IS NOT PRESENT, A MESSAGE IS PRINTED AND ANOTHER 
sREQUEST IS ISSUED. WHEN THE SELECTED SLAVE IS FOUND TO BE 
PRESENT, A MESSAGE IS PRINTED IF IT IS A 7 CHANNEL DRIVE 

:TO ASSIST IN SELECTING DENSITY, PARITY, AND FORMAT. 

;UPON COMPLETION OF THE DEVICE TABLE, REQUESTS 

ARE PRINTED FOR ENTRY OF THE NUMBER OF CHARACTERS 

;PER RECORD AND THE NUMBER OF RECORDS PER BLOCK. THE 

:NEXT REQUEST IS FOR A PATTERN NUMBER TO BE USED 

FOR WRITING AND CHECKING OF READ DATA. 

FOLLOWING THE PATTERN REQUEST IS THE TAPE MARK OPTION. 
RESPONDING TO THE REQUEST (TM=) WITH A ONE (1) 

sWILL CAUSE THE PROGRAM TO WRITE A TM AT THE 

:END OF EACH DATA BLOCK AND TO EXPECT THE 

TM TO BE DETECTED IN EITHER READ FORWARD AND REVERSE 

OR DURING SPACE OPERATION. A RESPONSE OF ZERO (TM=0) 
:DISALLOWS WRITTING OF THE TM AND CAUSES THE READ 

AND SPACE ROUTINES TO EXPECT NO TM TO BE PRESENT. 

THE LAST REQUESTS ARE FOR ENTRY OF THE DESIRED 

;WRITE, READ, AND TURN AROUND STALLS. 


PRATER AERA AAA AAA AERA KEREREKKEAKKEKE 


SEE IF SHOULD INPUT FROM TTY 
: IF SO: BR 


EXIT 

;CLEAR TABLE POINTER 
;CLEAR EOT UNIT COUNTER 
:SET SIZE OF TABLE 

;SET START OF TABLE 
:CLEAR TABLE 

;SEE IF DONE 

; IF NOT: BR 


SEQ 0070 
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012436 


012740 
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012704 
005737 


152714 


025453 
000734 


025401 
014150 
026463 
000544 
000544 


026506 
000546 
000546 


000016 
000510 


000002 


000734 


021732 
000040 
026127 


000550 


010000 
026420 
000510 
000100 
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165650 


165610 
165576 


TINPB1: 


TINPBO: 


TINPC: 
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#MSG31,R4 
ASEQF 
TINPB1 
#ASG30,R4 


SCVFL 
TINPC 
#MSG74,R4 


REGS ,R3 


#REGS,RS 
#6,R1 
#176400,R2 
#172300,R3 
PC,TIR 
#MSG75,R4 


VECT,R3 
+ yt 3 Ea 


0 
#ATINT, (RO) + 


#340, (RO) 
REGS .RO 


acl 
#10000,aCS 
TINPO 
#MSG71,R4 
C1,R4 

R4 

#100, (R4) 


sREQUEST STARTING REGISTER ADDRESS 


: SEE 4 _AuTO SEQ 
:1F NOT: BR 

:SET AUTO SEQ HDR 
PRINT PROGRAM 


NAME 
SEE IF SHORT CONVERSATION 
:1F SO: BR 


PRINT CURRENT REG START 
;SAVE ADDRESS LOCATION 
SET SIZE OF ENTRY 

SET UPPER LIMIT 

SET LOWER LIMIT 

3GO GET RESPONSE 


:GO REQUEST VECTOR ADDRESS 


PRINT CURRENT VECTOR 

:SET SAVE LOCATION 

SET SIZE OF ENTRY 

;SET UPPER LIMIT 

;SET LOWER LIMIT 

3GO GET RESPONSE 

:GET VECTOR ADDRESS 

;LOAD VECTOR WITH HANDLER ADDRESS 
:LOAD PRIORITY LEVEL 

GET STARTING REGISTER ADDRESS 
:SET NUMBER OF REGISTERS 
GET FIRST ADDRESS LOCATION 
;BUILD TABLE OF ADDRESSES 
;BUMP ADDRESS 

SEE IF DONE 

IF NOT: BR 

;SEE IF AUTO SEQ 

z:1F NOT: BR 

RESET STACK POINTER 

:GO TO AUTO SEQUENCE 

: INITIALIZE 


;REQUEST DRIVE NUMBER 
GET ADDRESS 

SET SIZE OF RESPONSE 
;SET UPPER LIMIT 

SET LOWER LIMIT 

:GO GET DRIVE NUMBER 


sACCESS DRIVE 


E IF NED 


: IF NOT: BR 
;PRINT NED 


CLEAR TRE 


SEQ 0071 
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012744 000736 B TINPC ;++G RETRY DVN 


025515 TINPO: MOV #MSG32,R4 
T PRINT UNIT NUMBER REQUEST 
000644 TEMP2 ;CLEAR BUFFER 
#TEMP2,R5 ;SET UNIT DESCRIPTION BUFFER ADDRESS 
R1 ;SET NUMBER OF CHARACTERS TO INPUT 
SET MAXIMUM LIMIT 
;SET MINIMUM LIMIT 
:GO GET UNIT NUMBER 
000642 ;SEE IF HAVE NEW PARAMETER 
:I1F SO: BR 
000674 :SEE IF FIRST ENTRY 
:1F NOT: BR 


3++G ELSE RETRY 
000674 TINPOA: UNP ,RO 
000746 #-1,UN1(RO) ;SET END UNIT TABLE 
TINP2C :GO GET RECORD COUNT 
TINPOB: UNP ,RO 
000746 #7,UN1(RO) :CLEAR UNIT NUMBER 
165436 :GO LOAD UNIT NUMBER TO PROPER POSITION 


165426 DVN,@ 
165442 ;LOAD UNIT NUMBER 
002000 165430 TINPOC: :SEE IF SLAVE PRESENT 


:1F SO: BR 
026206 0 #MSG57,R4 


012746 J TINPO 

142011 165406 TINPOD: #142011,aDT :++G SEE IF 9TRK TMO2,TU16/TE16 
TINPOE :1F SO: BR 

026102 0 #MSG50,R4 : ILLEGAL nie TYPE 


:G0 PRIN 
165372 0 adT,R3 
0 PRINT DRIVE TYPE REGISTER 
025003 TINPOE: MOV #MSG9,R4 


PRINT SERIAL NUMBER TAG 
165360 
024272 J :PRINT SERIAL NUMBER 


025536 TINP1: 
PRINT DENSITY REQUEST 
000644 CLR ;CLEAR BUFFER 
:SET NUMBER OF CHARACTERS TO INPUT 
SET MAXIMUM LIMIT 
SET MINIMUM aa 
:GO GET DENSIT 
000642 SEE IF HAVE NeW PARAMETER 
TINP2 :1F NOT: BR 
003400 000552 #3400, UDES ELSE CLEAR OLD PARAMETER 
000010 #10,R3 SET POSITION FACTOR 
014152 J PC, TPOS :GO LOAD DENSITY INTO PROPER POSITION 


025552 : V #MSG34,R4 
T PRINT PARITY REQUEST 
000644 CLR TEMP2 :CLR BUFFER 
#1,R1 SET NUMBER OF CHARACTERS TO INPUT 
#1,R2 ;SET MAXIMUM LIMIT 
013264 012703 000000 #0,R3 7SET MINIMUM LIMIT 


PRINT NON-EXIST SLAVE 
;RED 
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013270 


013614 


004737 


012701 


023346 
000642 


000010 
000003 
014152 
026151 


000644 


000642 


000170 
000004 
014152 
005156 
000016 


000002 
012746 
000674 
005156 
005156 
005156 
025565 


000554 


000554 
000006 
177777 
000001 
023346 
000554 
025606 


000556 
000556 


000556 


025632 
000560 
014554 


000560 
000002 


MACY11 30A(1052) 


000552 


000552 


000674 
000674 


000630 


000632 


J 
TINP2A: 


J 
TINP2B: 
C 


P 
TINP2C: 
4 


TINP3: 


PC,TTR 
TEMP1 
TINP2A 
#10,UDES 
#3,R3 

PC, TPOS 
#MSG53,R4 


#MSG35,R4 
RCNT,R3 
#RCNT,RS 
#6,R1 


#MSG36,R4 


FMCNT 
FMCNT,R3 


#FMCNT,RS 
#6,R1 


C 
FMCNT,FCSAV 
#MSG37,R4 


PATRN,R3 
DOFL 


#PATRN,RS 
#2,R1 
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:GO INPUT PARITY 

;SEE IF HAVE NEW PARAMETER 

:1F NOT: BR 

sELSE CLEAR OLD PARAMETER 

:SET POSITION FACTOR 

:GO LOAD PARITY TO PROPER POSITION 


;REQUEST FORMAT 


3GO GET FORMAT 
;SEE IF NEW PARAMETER 
7; 1F NOT: BR 


;BUMP EOT UNIT COUNTER 
;SEE IF DONE UNITS 

:1F SO: BR 

;POINT TO NEXT UNIT 
sELSE LOOK FOR NEXT UNIT 
;CLEAR UNIT POINTER 


:SET UNIT EOT COUNTER 
PRINT RECORD COUNT REQUEST 


;PRINT RECORD COUNT 

:SET RECORD COUNT ADDRESS 

:SET NUMBER OF CHARACTERS TO INPUT 
SET MAXIMUM LIMIT 

7SET MINIMUM LIMIT 

:GO GET RECORD COUNT 

SAVE RECORD COUNT 


PRINT CHARACTER COUNT REQUEST 


PRINT CHAR COUNT 

SET CHARACTER COUNT ADDRESS 

:SET NUMBER OF CHARACTERS TO INPUT 
7SET MAXIMUM LIMIT 

7SET MINIMUM LIMIT 

:GO GET CHARACTER COUNT 

SET TO TWO'S COMPLIMENT 

SAVE FRAME COUNT 

PRINT PATTERN NUMBER REQUEST 


PRINT PATTERN 

CLEAR EXTERNAL DATA FLAG 

;SET PATTERN NUMBER ADDRESS 

;SET NUMBER OF CHARACTERS TO INPUT 


SEQ 0073 
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013620 012702 000015 SET MAXIMUM LIMIT 
000000 #0,R3 SET MINIMUM LIMIT 
023346 :GO GET PATTERN NUMBER 
026346 V #MSG69,R4 
;REQUEST TM 


000564 V TMEX,R3 
:PRINT CURRENT TM FLAG SETTING 
000564 #TMEX,RS :GET TM FLAG ADDRESS 
#1,R1 SET SIZE OF RESPONSE 
#1,R2 ;SET UPPER LIMIT 
#0,R3 7SET LOWER LIMIT 
PC,TTR 7 TM 1=YES 


025133 MOV #MSG21,R4 
;REQUEST INTERCHANGE READ 


000566 INTRF ,R3 
PRINT CURRENT SETTING 
000566 #INTRF,RS :GET FLAG ADDRESS 
R1 SET SIZE OF RESPONSE 
;SET UPPER LIMIT 
SET LOWER LIMIT 
:GO GET RESPONSE 


;REQUEST SINGLE PASS 
;PRINT CURRENT SETTING 


025655 V #MSG38,R4 
000570 SPFLG,R3 


000570 aes SET ADDRESS OF FLAG 


SET SIZE OF RESPONSE 
;SET UPPER LIMIT 
SET LOWER LIMIT 
J :GO GET RESPONSE 
014150 : :SEE IF — CONVERSATION 


:IF $0 
025675 0 #MSG40,R4 

PRINT READ STALL REQUEST 
000572 RSTAL ,R3 


PRINT READ STALL 
000572 #RSTAL,RS SET READ STALL ADDRESS 
6,R1 ;SET NUMBER OF CHARACTERS TO INPUT 
7SET MAXIMUM LIMIT 
7SET MINIMUM LIMIT 
3GO GET READ STALL 


025723 OV #SG41,R4 

PRINT WRITE STALL REQUEST 
000574 WSTAL ,R3 

PRINT READ STALL 


000574 #WSTAL RS :SET WRITE STALL ADDRESS 
#6,R1 SET NUMBER OF CHARACTERS TO INPUT 
#-1,R2 SET MAXIMUM LIMIT 
#1,R3 7SET MINIMUM LIMIT 
PC,TTR :GO GET WRITE STALL 


025735 V #MSG42,R4 

PRINT TURN AROUND STALL REQUEST 
000576 0 TSTAL,R3 

PRINT TA STALL 


000576 #TSTAL,RS SET TURN AROUND STALL ADDRESS 
014122 012701 000006 #6,R1 7SET NUMBER OF CHARACTERS TO INPUT 
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014126 012702 177777 7SET MAXIMUM LIMIT 
;SET MINIMUM LIMIT 
J 3;GO GET TURN AROUND STALL 
014150 : ; Hite SHORT CONVERSATION FLAG 
sex 
014150 000000 $ ;SHORT CONVERSATION FLAG 


UNIT DESCRIPTION POSITIONING SUBROUTINE**tetenene 


014152 000241 t 

014154 006137 000644 R TEMP2 ;POSITION CHARACTER 

014160 005303 R3 SEE IF DONE 

014162 001373 8 TPOS ilf NOT: BR 

014164 013700 000674 TPOS1: UNP ,RO LOAD UNIT POINTER 

014170 053760 000644 000746 B TEMP2 ,UN1 (RO) LOAD CHARACTER INTO UN1(RO) 
014176 000207 PC sEXIT 
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014200 


014376 
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005737 


042737 


015150 
000734 
000560 
015102 
000560 014406 


000552 
177767 
014410 


014410 
015152 


027456 
000560 
014406 
000001 


002770 
010000 164212 


002002 
027456 
140300 


015152 
002000 
033464 


000552 014410 
177767 014410 


MACY11 30A(1052) 


DSOC: 


L 6 
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FRR AEE EAE EAE EE RARER EREREKEREREE 


DATA SETUP ROUTINE: 


THIS ROUTINE IS USED TO GENERATE INTO THE ENTIRE 

sWRITE BUFFER (4000 OCTAL CHARACTERS) THE DATA PATTERN 
;SELECTED BY THE OPERATOR. THERE ARE 15 (8) FIXED 

:DATA PATTERNS AVAILABLE AND ONE SELECTION (DATA PATTERN 0) 
sWHICH WILL READ ANY PATTERN PRESENTED AT THE 

HIGH SPEED PAPER TAPE READER. THIS TAPE MUST BE PREPARED 
BY USING THE PROGRAM CALLED DTC. (MAINDEC-11-DZTUF-A-D) 
;RANDOM DATA MAY ALSO BE USED VIA CONSOLE 

SWITCH EIGHT (8). 

THIS ROUTINE IS ALSO USED TO CLEAR OUT THE 

sREAD BUFFER (4000 OCTAL CHARACTERS) BEFORE EACH 

RECORD IS READ. 


FRE ARAEAEAAEEEEE AEE TEETER ERE AERA TEAREKEREREREEKKREREAEKE 


;SEE IF DID RANDOM DATA 
:++G F SO BRANCH 

sSEE IF AUTO SEQ 

:1F NOT: BR 

SEE IF “AUTO RANDOM 
:1F NOT: BR 
7 ELSE Go GENERATE RANDOM DATA 
; RETURN 


PC ; 
PATRN,PATS ;SEE IF NEW PATTERN 
DSOA :1F SO: BR 


B 
UDES ,R3 :GET UNIT DESCRIPTION 
#177767 ,R3 MASK EVEN PARITY 
R3 7SEE IF SAME AS Last TIME 
:1F SO: BR 
SAVE PARITY 
a :G0 GENERATE EXPT CRC/LRC 


#WDATA,R3 ;R3 = ADDRS OF WRITE BUFFER 


PATRN,R1 7R1 = PATTERN SELECTOR 
R1,PATS 
#1,R1 ;BUMP POINTER 
R1 3++#G MAKE PATTERN SELECTOR EVEN 
PC,@DATBL(R1)  ;GO GENERATE PATTERN 
#10000, aDT SEE IF 7 CH 
DS2A :1F NOT: BR 
#2002 ,R2 SET BUFFER SIZE 
#WDATA,R1 ;SET START OF BUFFER 
#140300,(R1)+  ;MASK FOR 7 CH 
R2 SEE IF DONE 
DS2 :1F NOT: BR 
PC,CRCLRC :GO GENERATE EXPT CRC/LRC 
#2000 ;R2=BUFFER SIZE 
;RI=READ DATA START 
;CLEAR BUFFER 
SEE IF DONE ALL 
DS4 ;1F NOT: BR 
UDES,PARS :GET UNIT DESCRIPTION 
#177767,PARS MASK PARITY 
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014404 
014406 
014410 


014412 


014554 


000207 
177777 
000000 


005737 


000000 ~ 


014554 


000001 
164166 
164160 
000642 
000001 
164142 


164134 
000642 


000001 
000644 


027456 
000644 


033464 


MACY11 


014554 


164146 


000642 


mM 6 
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RTS PC sEXIT 
PATS: =1 PATTERN NUMBER SAVE 
PARS: 0 


EXTERNAL DATA INPUT FROM H/S READER (256 CHARACTER MAXIMUM) 
DATO: > i+#G BRANCH IF EXTERNAL INPUT 
G 


+e 
PC 1+4G RETURN 
1$: ’ SET EXTERNAL FLAG 
@PRB :CLEAR READER BUFFER 
;CLEAR READER STATUS 
;CLEAR FOR USE AS CHARACTER FLAG 
DATOA: START READER 
DATOB: :++G SEE IF DONE 
+ 


7 ++B 
CLEAR SAVE LOCATION 
SAVE CHARACTER 
:SEE IF HAVE FOUND START CHARACTER 
:IF SO : BR 
SEE IF CHARACTER IS 0 
:1F SO : BR 

ZELSE SET CHARACTER FOUND FLAG 

SAVE DATA SIZE 

:SAVE DATA SIZE 
ATOA 3++#G GO GET FIRST DATA CHAR 
R1,(R3)+ ;LOAD BUFFER 
R2 ;SEE IF READ ALL 
DATOA :1F NOT : BR 
#WDATA,R1 :R1 = START OF WRITE BUFFER 
TEMP2,R2 :R2 = SIZE OF DATA FIELD 
(R1)+,(R3)+ REPEAT LOAD OF DATA FIELD 

SEE IF DONE 

:1F NOT: ~ 

3++#G RETURN 

:SEE IF AT END OF DATA FIELD 

:IF NOT : BR 

:##G ELSE RESTART FILL 

EXTERNAL DATA FLAG=1 IF ALREADY DONE 
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014556 


014574 


014576 
014600 


014602 


014624 


014626 
014632 
014634 


014636 
014642 


014644 
014650 


014652 


014676 


012701 


000207 


005001 
000770 


012701 


000207 


012701 
000261 
000765 


012701 


000747 


012701 


000207 


177777 
002002 


000001 
004004 


000376 


052525 


125252 


125252 
052525 
001002 


MACY11 30A(1052) 
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sALL ONESteteeeeere 


#-1,R1 ;RI=DATA 

#2002,R2 ;R2=WORD COUNT +2 
R1,(R3)+ ;LOAD BUFFER 

R2 ;SEE IF DONE 
DAT1B s1F NOT: BR 

PC 3++G RETURN 


ALL ZEROSteeeeeeeee 


CLR R1 ;R1=DATA 
BR DATIA ;++G LOAD BUFFER 


SWALKING ONEteetteeere 
#1,R1 ;R1I=DATA 
#4004 ,R2 >R2=CHARACTER COUNT+4 
R1,(R3)+ ;LOAD BUFFER 
7SET NEXT CHARACTER 
1446 RETURN 
SWALKING ZEROteetereees 
MOV #376,R1 ;R1=START OF DATA 
aR DAT3A 3++#G LOAD BUFFER 
ALTERNATING ONE/ZEROttteeerere 
BR ODA = 446 LOAD BUFFER 
ALTERNATING ZERO/ONEttetteeeee 


MOV 4 + iad R1 ;R1=DATA 
BR DATIA 3*#+G LOAD BUFFER 


;ONE/ZERO IN ALTERNATING WORDStteeteenee 


#125252,R1 7SET WORD 1 
#52525,R2 ;SET WORD 2 
#1002,R4 ;SET NUMBER OF ENTRIES 
R1,(R3)+ ;LOAD WORD 1 
Re, (R3)+ ;LOAD WORD 2 
;SEE IF DONE 
;1F NOT: BR 
3+#+G RETURN 


SEQ 0078 
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014726 


014730 


014746 


014750 


014770 


014772 
014776 


015002 


015030 


012702 


000207 


012701 


000207 


012701 
000137 


012702 


000207 


002002 
000001 


177400 


004004 


000377 
004004 


000377 
014562 


002002 
000376 


177400 


WALKING ONE/ALL ONE IN ALTERNATING CHARS*ee* 


DAT10: #2002 ,R2 SET BUFFER SIZE 
MO #1,R1 SET WALK BASE 


C 
DATIOA: #177400, (R3) ;LOAD ALL ONE BYTE 
B R1,(R3)+ LOAD WALK BYTE 
R1 WALK ONE 


R2 
DATIOA D0 FULL BUFFER 
PC 3+#G RETURN 


SALL BITS O0-377eeeeeeeeee 


DAT11: R1 sRI=STARTING DATA 
M ;R2=CHARACTER COUNT+4 
DATIIA: ;LOAD BUFFER 
I ;BUMP DATA 
7SEE IF DONE 
7I1F NOT: BR 
3+##G RETURN 


SALL BITS 377-Oeeeeeerece 


DATI2: #377,R1 zR1=STARTING DATA 
M #4004 ,R2 ;R2=CHARACTER COUNT+4 
DAT12A: R1,(R3)+ ;LOAD BUFFER 
R1 :BUMP DATA 
R2 SEE IF DONE 
DATI2A :1F NOT: BR 
PC 3++G RETURN 


ALTERNATING CHARACTERS 0 AND 377eeeeneneee 


MOV #377,R1 zR1 = DATA 
JMP DATIA ;LOAD BUFFER 


WALKING ZERO/ALL ZERO IN ALTERNATING CHARS*#ee2* 


DAT14: #2002 ,R2 SET BUFFER SIZE 
#376,R1 SET WALK BASE 


S 
DATIGA: R1,(R3) ;LOAD WALK BYTE 
B #177400,(R3)+*  ;CLEAR HIGH BYTE 
R1 WALK ZERO BIT 


R2 
DATIGA FILL BUFFER 
PC :++G RETURN 





C 
C 
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sAUTO SEQUENCE PATTERNeteterers 


015032 012702 000200 DAT15: #200,R2 SET NUMBER OF ENTRIES 
150 012701 015062 DATISA: #APATS,R1 SET START OF PATTERN 
012704 000010 mM #10,R4 :SET te OF PATTERN 
012123 DAT15B: (R1)+,(R3)+ FILL BUFFER 
D R4 7 SEE Lu _DONE PATTERN 
DAT15B IF NOT: BR 
R2 ‘See. iF “DONE oe 
DATISA :1F NOT: BR 
PC 3 ++G RETURN 


015100 177777 
DATA GENERATOR SUBROUTINE *t#texeeeee 


015102 013704 000556 : FRACNT,R4 ;SET NUMBER OF FRAMES 
027456 #WDATA,R3 SET ADDRESS OF START OF BUFFER 
177777 #-1,R1 SET HIGH LIMIT 
C R2 SET LOW LIMIT 
023314 : PC,RANG ;GO GENERATE NUMBER 


000626 M RANSAV, (R3)+ ;LOAD BUFFER 

R4 +o or — WHOLE BUFFER 
014316 ;GO CHECK FOR 7 CH 
000001 015150 : _— DATA FLAG 


TS sEXI 
015150 000000 : ;RANDOM DATA SELECT FLAG 
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FRAT AAA AA AAA ARATE REA AERA RAAEAREREAAARAREKEREKEREE 


;CRC/LRC CHARACTER BUILD; 


;THIS ROUTINE WILL CONSTRUCT AND SAVE THE EXPECTED 
CRC AND LRC CHARACTERS ACCORDING TO DATA AND 
RECORD SIZE IF OPERATING IN NRZ MODE 


FERRARA AAA AA ATE AERA RARER EAA EERE ARARAAAATEAAEKAEREREE 


013700 000556 CRCLRC: - yeaa SET RECORD SIZE 


R 
027456 #WDATA,R1 ;SET START OF BUFFER 
015534 XORS 
CLO: (R1),R4 ;GET CHARACTER 
015362 PC,CLP 3GO GET PARITY OF CHARACTER 
015510 PC,XOR :XOR CHARACTER 


R4 ROTATE 1 RIGHT 
CL2 :1F NO CARRY: BR 
000400 #400,R4 SET BIT NINE 


: R4,R5 : SAVE CHARACTER 
177703 + alam 
R 


177703 #177703,R5 
000074 RG 


015534 CL2: 


: COMPLIMENT BITS 2,3,4,5 


7: 1F LAST CHARACTER: BR 
B :+*#G GET NEXT 
015534 CLLAST: 
C 


XORS 
015534 #177050, xORS 
#177727 RA : COMPLIMENT ALL BUT BITS 385 
015536 KORS ,EXCRC :SAVE EXPECTED CRC 
000556 FACNT RO 
027456 #WDATA,R1 :D0 EXPT LRC 
015534 XORS 
(R1),R4 


PC,CLP 3GET PARITY 
—— ;XOR CHARACTER 


:D0 ALL FOR LRC 


CL3 

EXCRC,R4 

PC,XOR :XOR CRC TO DATA 
015540 XORS ,EXLRC SAVE EXPT LRC 

PC 7 RETURN 

4 7 SEE i 0 CHAR 

LPE :1F NOT: BR 

000552 rid, UDES ‘SEES IF "EVEN PARITY 
;1F NOT: BR 


CLP 
000420 #420, R4 SET 0 CHAR EVEN PARITY 
015402 005201 ;BUMP POINTER 
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015404 000207 R ; RETURN 
015542 CLEAR BIT COUNTER 
000010 SET NUMBER OF BITS 
000001 : SEE IF ONE BIT 
:1F NOT: BR 
015542 ;BUMP COUNTER 


ROTATE TO NEXT BIT 
; CONTINUE FOR ALL BITS 


177400 #177400,R4 
000001 015542 as iy ok = NUMBER OF ONE BITS 
000010 000552 SEE IF SHOULD BE EVEN PARITY 
CLP3 IF NOT: BR 
C ELSE EXIT 
000010 000552 CLP: SEE IF SHOULD BE ODD PARITY 
CLP3 IF NOT: BR 
ELSE EXIT 
000400 CLP3: SET PARITY BIT 


: R4,-(SP) 
015534 XORS, (SP) 
015534 R4 ,XORS :XOR SUBROUTINE: R4& WITH XORS 
015534 (SP)+,XORS 
015534 XORS,R4 
PC 


~n ne eR em em me me me me Re me me he me me Om Om EE 


015532 000207 


015534 000000 : :XOR SAVE 
015536 000000 : sEXPECTED CRC 
015540 000000 EXLRC: sEXPECTED LRC 
015542 000000 PARCNT: PARITY COUNTER 
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on 
~N 


Por et a at ot at at ot et at et et et et et oe et et et et et ot et et et et et ot et ot ot et ot ot et et et et et et et et et et et et et et et et et et ee ee, 


Fe er ar ee TT ae 


:DATA CHECK SUBROUTINE: 


STHIS SUBROUTINE IS USED TO COMPARE EACH CHARACTER 
:OF DATA READ FROM TAPE WITH THE EXPECTED CHARACTER. 
sANY ERROR DETECTED WILL CAUSE CONTROL TO BE 

PASSED TO AN ERROR PRINT SUBROUTINE AND A 

; SUBROUTINE TO ACCUMULATE THE NUMBER OF BITS 
;DROPPED AND PICKED UP FROM EACH CHARACTER. 

THE NUMBER OF READ ERRORS IS ALSO ACCUMULATED. 
DATA CHECKING MAY BE TERMINATED BY USE OF 

CONSOLE SWITCH THIRTEEN (13). 


FREE AARAAA EAE E AAR REE AEE AEE AAERERAARAAREARERAERKREARARKEEE 


005037 000656 : BBC ;CLEAR BAD RECORD CNTR 
000704 C DERFL ;CLEAR DATA ERROR FLAG 
000556 FMCNT,RS ;LOAD CHAR COUNT 
000020 000552 #20,UDES :SEE if CORE DUMP 
DCHKO :1F NOT: BR 


R5 3R5 = FC/2 
027456 : #WDATA,R1 ;SET WRITE DATA ADDR 
033464 M #RDATA,R2 ;SET READ DATA ADDR 
000010 000552 #10,UDES SEE IF EVEN PARITY 
DFOCO :I1F NOT: BR 
000020 000552 +44 age SEE IF “CORE DUMP PARITY 


:1F SO: B 
002000 000552 #2000,UDES SEE IF PE MODE 
DFOCO 


:1F SO: BR 
7 SEE If 0 CHAR 
:1F SO: BR 
; BUMP POINTER 
:SEE IF DONE 
:1F NOT: BR 
sELSE CONTINUE 
000020 : #20,(R1)+ ;SET 20 IN PLACE OF 0 
177777 014406 seed ;SET PATTERN GENERATE FLAG 
000556 : FMCNT,RS RESET CHAR CNT 
027456 M . RESET DATA ADDRESS 
010000 000562 : #10000 ,RDCMD ;SEE IF READ REVERSE 
B DFO IF NOT: BR 
000556 : FMCNT,R4 ;GET FRAME COUNT 
R4 ;SET TO WHOLE NUMBER 
000020 000552 #20, UDES ;SEE IF CORE DUMP 
DFOBO 7; 1F NOT: BR 


SET TO FC/2 
;POINT TO START OF WRITE DATA 
;POINT TO START OF READ DATA 
000001 000556 SEE IF ODD FRAME COUNT 
D :1F NOT: BR 
T ;BUMP POINTER 
000020 000552 : SEE IF CORE DUMP 
015752 001431 B DFOAS :1F NOT: BR 





015754 


016156 


CZTUAHO TMO2-TU16/TE16 RELIAB 
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26-APR-78 09:51 


000241 


000207 


000001 


000001 


000001 


000001 


000656 


000656 
016666 
016160 
010000 
000664 
000704 
000706 


000674 
010000 


001130 
00117¢ 


MACY11 30A(1052) 


000562 


000562 


G 
16-MAY-78 09:48 


#1,-(R2) 
DFOAO 


(R2) 


#1, (R2) 
DFOA1 


(R2) 


#1,(R2) 
DFOA2 


(R2) 


#1,(R2) 
DFOAS 


(R2) 

R2 
~(R1),-(R2) 
DF 

BBC 

DF2 
(R1)+,(R2)+ 
DF1 


UNP ,R4 
#10000, RDCMD 
DF4 


DATER1(R4) 
DFX 
DEREV1(R4) 
PC 


7 
PAGE 


84 


sSEE IF BIT 0 = 
:IF NOT: BR 


;POSITION BITS FOR REVERSE CORE DUMP 


;RESET POINTER 

; TEST DATA CHARACTER 

:1F NOT GOOD: BR 

: CLEAR BAD RECORD COUNTER 


CHECK DATA 
:;1F BAD: BR 
;CLEAR BAD RECORD CNTR 


:GO GET DROPS AND PICKS 
:GO DO PRINT 


;BUMP CHAR CNTR 

IF DONE ALL: BR 

:SEE IF READ REVERSE 
:1F NOT: BR 

ZELSE CONTINUE READ REV 
: CLEAR HEADER FLAG 


:SEE IF HAD DATA ERROR 
:1F NOT: BR 


:1F NOT DATA ERROR ONLY: BR 
;SEE IF READ REVERSE 
: BR 


:1F SO: 
;BUMP DATA ERROR FORWARD COUNTER 


aon REVERSE DATA ERROR 


SEQ 0084 


et et et ek dl et el te et ee ee ee ee ee a ee ek 





H 7 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 85 SEQ 0085 
CZTUAH.P11 26-APR-78 09:51 


3844 

3845 PRRRRERAA TRAE A ATER AERA AREER RARE AERA 
sect ;DATA ERROR SUBROUTINE: 

3848 ; THIS SUBROUTINE IS USED TO PRINT OUT ANY 

3849 sERRORS FOUND DURING THE DATA CHECK. 

3850 ;EACH CHARACTER FOUND BAD WILL BE PRINTED 

3851 > IN BIT FORMAT ALONG WITH ITS EXPECTED CHARACTER. 
3852 7AN ERROR HEADER CONSISTING OF THE UNIT NUMBER, 

3853 ;BLOCK NUMBER, RECORD NUMBER, SIZE OF RECORD, AND 
3854 sERROR TYPE (READ FORWARD, READ REVERSE, WRITE, ETC) 
3855 71S PRINTED ONLY ONCE FOR EACH RECORD FOUND BAD. 
3856 ;A COUNT IS MADE OF THE NUMBER OF SUCCESSIVE BAD 
3857 ; CHARACTERS, AND IF TEN (10) SUCCESSIVE BAD CHARACTERS 
3858 ;ARE FOUND IN A SINGLE RECORD, A MESSAGE INDICATING 
3859 3A BAD RECORD CONDITION IS PRINTED AND THE NEXT 
3860 sTWENTY (20) CHARACTERS ARE SKIPPED BEFORE CHECKING 
3861 71S RESUMED. IF THE BAD RECORD CONDITION IS FOUND 
3862 ; THREE TIMES IN A RECORD, ALL REMAINING DATA IS 

3863 ;SKIPPED EXCEPT THE FINAL TEN (10) CHARACTERS. 

3864 : THIS SKIPPING IS OF COURSE ONLY POSSIBLE IN 

3865 sRECORDS WHICH CONTAIN A SUFFICIENT NUMBER OF CHARACTERS. 
3866 :PRINTING OF ERRORS MAY BE DISALLOWED AT ANY TIME 
3867 :BY SETTING CONSOLE SWITCH TEN (10) TO A ONE. 

3868 ; THE OPERATOR MAY CAUSE THE PROGRAM TO HALT ON ANY ERROR 
3869 :BY SETTING CONSOLE SWITCH FIFTEEN (15) TO A ONE. 
3870 FRR AA ERASE AEA AAA A AAA AA ATA EAA ATAAATAAARAKEREKEEE 
3871 

3872 016160 032777 002000 162420 ODERR: BIT #2000, aSWR ;SEE IF SHOULD PRINT ERRORS 
3873 016166 001067 BNE DERR4 3++G BRANCH IF NOT 

3874 016170 005237 000670 DERRO: INC PFLG ;SET PRINT FLAG 

3875 016174 005737 000664 TST HORFL ;SEE IF HAVE PRINTED HEADER 
3876 016200 001007 BNE DERROA 3; IF SO: BR 

3877 016202 004737 022730 JSR PC,PAPRT ;PRINT CYCLE NUMBER 

3878 016206 012704 024730 MOV #MSG1,R4 ;LOAD ERROR MSG ADDR 

3879 016212 104000 TTOUTT ;PRINT ERROR 

3880 016214 004737 021156 JSR PC, FRPRT sPRINT F OR R 

3881 016220 012704 024747 DERROA: MOV #MSG4,R4 

3882 016224 104000 TTOUTT ;PRINT CHAR NO. HEADER 

3883 016226 010203 MOV R2,R3 

3884 016230 162703 033464 SUB #RDATA,R3 :POINT TO CHAR 

3885 016234 005303 DEC R3 

3886 016236 032737 010000 000562 BIT #10000, RDCMD ;SEE IF READ REVERSE 

3887 016244 001402 BEQ DERROB :1F NOT: BR 

3888 016246 010503 MOV R5,R3 :GET CHAR NUMBER 

3889 016250 005103 COM R3 

3890 016252 104002 DERROB: OCTPP ;PRINT CHAR NUMBER 

3891 016254 012704 024735 MOV #MSG2,R4 

3892 016260 104000 TTOUTT ;PRINT EXPECTED DATA 

3893 016262 032737 010000 000562 BIT #10000,RDCMD ;SEE IF READ REVERSE 

3894 016270 001402 BEQ DERROC :1F NOT: BR 

3895 016272 111103 MOVB (R1),R3 ;GET CHAR 

3896 016274 000401 BR DERROD 

3897 016276 114103 DERROC: MOVB -(R1),R3 ;LOAD EXPECTED DATA 

3898 016300 004737 024160 DERROD: JSR PC,DOUT 3GO PRINT CHAR 


3899 016304 012704 024742 MOV #HSG3,R4 
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016310 104000 TTOUTT PRINT RECIEVED DATA 
010000 000562 #10000, RDCMD ;SEE IF READ REVERSE 
DERR1 IF NOT: BR 
:GET CHAR 


024160 : ;PRINT BAD CHAR 
010000 000562 #10000, RDOCMD ;SEE IF READ REVERSE 

DER 3++#G BRANCH IF NOT 

: (RIS, (R2)+ RESET POINTERS 

000656 : BBC ;BUMP BAD RECORD CNTR 
000010 000656 #10,BBC ;SEE IF BLD BTH 

DEREX :1F NOT: BR 
002000 162216 _— ;SEE IF PRINT INHIBIT 


1 :I1F SO: BR 
025061 MOV #MSG15,R4 
PRINT BLD BTH 
000656 : RESET BAD RECORD CNTR 
000656 :POSITION BLD BTH AMOUNT 
000656 ;BUMP AMOUNT 
000003 000656 41M S = 3 BLD BTHS 
NOT 
000656 BBC REPOSITION BBC 
177767 #177767,R5 SEE IF ON LAST EIGHT CHARS 
DERR6 :1F SO: BR 
177767 #177767,R5 SET CHAR CNTR TO 8 
010000 000562 #10000, ROCMD :SEE IF READ REVERSE 
DERR4A :1F NOT: BR 
027456 #WDOATA,R1 ;GET START OF BUFFER 
033464 ’ GET START OF BUFFER 
000010 
000010 ;POINT TO START +10 
000001 000556 ;SEE IF ODD FRAME COUNT 
:1F NOT: BR 
;BUMP POINTER 


B DEREX 
000556 000642 DERR4A: FMCNT, TEMP1 ;LOAD CHAR COUNT 
N TEMP1 3++G FORM TWO'S COMPLEMENT 
000642 #10, TEMP1 POINT TO BUFFER -8 
:POINT TO NEXT CHAR 
;POINT TO NEXT WRITE CHAR 
;POINT TO END OF READ DATA -8 FORWARD 
033464 ;POINT TO NEXT CHAR 


BR sEXIT 
000656 DERR4B: REPOSITION BBC 
000024 AD ;SKIP 20 CHARS 
DERR6 :I1F EXCEED RECORD SIZE: BR 
010000 000562 hee :SEE IF READ REVERSE 


7; 1F NOT: BR 
000024 
000024 RESET POINTERS 


B 
000024 : :SKIP 20 CHARS 
000024 A ;SKIP FORWARD 20 CHARS 


8 
016616 012705 177777 : SET TO EOR 
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016622 Teaats 161760 DEREX: M @SWR pee BRANCH IF CONTINUE ON ERROR 
p++ 


000670 TST ;SEE IF PRINTED 
DEREX1 :1F SO: BR 
002000 161740 SEE IF SHOULD PRINT 

REX1 :1F NOT: BR 

016170 J sELSE PRINT 

000670 DEREX1: CLEAR FLAG 
000764 I ;BUMP DATA ERROR FLAG 

016664 000207 ; RETURN 
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016666 


017074 


005037 
005037 
005037 


032777 


000642 


010000 


000642 
000644 
016766 
017204 


000642 
000644 


000010 
000001 


000646 


161664 
161660 


002000 


022730 
017250 


161632 
161626 


002000 
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000720 
000716 
000562 


000710 


161540 


161504 
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FRAT R ARETE AAA REREREREKERAKEREAEEEE 


; DROPS AND PICKS SUBROUTINE: 


STHIS SUBROUTINE IS USED TO ACCUMULATE FROM 

EACH BAD DATA CHARACTER FOUND THE NUMBER 

OF BITS WHICH WERE EITHER DROPPED OR PICKED UP. 

> TWO COUNTERS PER SLAVE ARE USED TO ACCUMULATE THIS 
; INFORMATION AND CAN STORE UP TO 32K DROPS 

OR PICKS BEFORE OVERFLOWING. 
ABOUT TO OCCUR, THESE ACCUMULATORS ARE 
PRINTED IN OCTAL AND RESET TO ZERO. 

:THE CONTENTS OF THE ACCUMULATORS MAY BE 
;DISPLAYED AT ANY TIME BY SETTING CONSOLE 
SWITCH FOURTEEN TO A ONE (1). 
:AT THE END OF THE CURRENT BLOCK CYCLE 


SURAT EEA EEA EAR EERE EEAREKERERKEREKEE 


IF OVERFLOW IS 


THE PRINTOUT WILL OCCUR 


TEMP1 
TEMP2 
TEMPS 
(R1), TEMP 
(R2), TEMP2 


UNP ,R4 
PIK1(R4),BPKP 
DRP1(R4) ,BDPP 
#10000, RDCMD 
DRPK 


~(R1),-(R2) 
(R1)+, TEMP 
(R2)+, TEMP2 


;LOAD GOOD CHAR 
;LOAD BAD CHAR 


;SEE IF READ REVERSE 
:IF SO: BR 

[POINT TO CHAR 

;LOAD GOOD CHAR 

:LOAD BAD CHAR 

GET DROPS 
GET PICKS 
EXIT 

= GOOD CHAR 

:R4 = BAD CHAR 

;GET DROPS/PICKS 

:1F SOME: BR 
7 RETURN 

SET NUMBER TO CHECK 

SEE IF DROPPED OR PICKED THIS BIT 
7; 1F NOT: BR 
SEE IF ON PICKS 

:1F SO: BR 
:BUMP DROP CNTR 


7: 1F NO OVERFLOW: BR 
;SEE IF HAVE PRINTED DATA 
;1F SO: BR 


“PRINT CYCLE NUMBER 
=PRINT DROPS AND PICKS 


;BUMP PICK CNTR 

sSEE IF OVERFLOW 

;1F NOT: BR 
:SEE IF "HAVE PRINTED DATA 


DPC2 
#2000, aSWR 


SEQ 0088 
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017102 001402 
022730 


000010 


000710 


000710 
000002 
000002 


000674 


0 

016776 
025355 
000674 


161372 
000710 
000002 


000010 
025366 


161334 

000710 

000002 
017404 000207 
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DPCIA 

PC,PAPRT 

PC ,DPPRT 

UNP ,R4 

DRP1(R4),R3 
PIK1(R4),R4 

000710 M #10,BCNT 


000720 
000716 


000720 PIK1(R4),BPKP 

000716 DRP1(R4) ,BDPP 
TEMP1,R4 
TEMP2 ,R3 

000646 #1, TEMPS 
PC,DPC 


PC 
#MSG26,R4 


UNP ,R4 
000716 DRP1(R4) ,BDPP 
PIK1(R4),BPKP 
#16,BDPP 
#16,BPKP 
000710 #10,BCNT 
DPPRTO: @BDPP ,R3 


BCNT 
DPPRT1 
000716 #2,BDPP 
DPPRTO 
000710 DPPRT1: #10,BCNT 
#MSG27,R4 


DPPRT2: @BPKP,R3 


BCNT 
DPPRTX 
000720 #2,BPKP 
DPPRT2 
DPPRTX: PC 


:1F SO: BR 
PRINT CYCLE NUMBER 
PRINT DROPS AND PICKS 


;SET DROP POINTER 
;SET PICK POINTER 
;SET NUMBER OF BITS 
CLEAR DROPS 

CLEAR PICK 

SEE IF DONE 

IF NOT: BR 

sEXIT 


;GET NEXT BIT 
SEE IF DONE 


:*#+G CONTINUE 

; RETURN 

7GET UNIT POINTER 
:SET PICK POINTER 
;SET DROP POINTER 
3R4 = GOOD CHAR 
:R3_ = BAD CHAR 
7SET PICK FLAG 
3GO CHECK PICKS 
sEXIT 


PRINT DROP HEADER 


:SET DROP POINTER 
;SET PICK POINTER 


SET NUMBER TO PRINT 


PRINT DROPS 

SEE IF DONE 

:1F NOT: BR 

;BUMP POINTER 

;CONTINUE FOR ALL 8 BITS 
;SET NUMBER TO PRINT 


;PRINT PICK HEADER 


sPRINT PICKS 

;SEE IF DONE 

:1F SO: BR 

;BUMP POINTER 

;CONTINUE FOR ALL 8 BITS 
; RETURN 


SEQ 0089 
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SURAT AA AAA AAAAAAAAARAEREEKEEEEE 


STATUS CHECK SUBROUTINE: 


THIS SUBROUTINE IS USED TO PERFORM A CHECK OF 

;BOTH THE MASSBUS CONTROLLER (RH11) AND THE TAPE 
s;CONTROLLER (TMO2). THE RH11 IS CHECKED FOR ERRORS 

sAS REFLECTED IN REGISTERS CS1 AND CS2 AND ALSO THAT 
THE BUS ADDRESS (BA) AND WORD COUNT (WC) ARE 

CORRECT. THE TMO2 IS CHECKED FOR DRIVE STATIS (DS), 
DRIVE ERRORS (ER), AND PROPER FRAME COUNT. THE SPECIAL 
CHECK CHARACTERS (CRC+LRC) ARE ALSO CHECKED WHEN 
:APPROPIATE (IE: NRZ READ OR WRITE). CERTAIN TYPES 

OF DRIVE ERRORS IN PE OPERATION WILL BE ACCOMPANIED 
:BY THE DISPLAY OF THE DEAD TRACK REGISTER (CC). THESE 
sTYPES ARE ER BITS 15,10,7,6. THE PRINTOUTS OF BAD 
:CRC,LRC,FC, AND BA WILL SHOW BOTH THE EXPECTED AND 
RECEIVED VALUES (IE: EXPT-RCVD). ONLY THOSE REGISTERS 
WHICH ARE IN ERROR WILL BE PRINTED AND ALL PRINTOUTS 
sARE IN OCTAL FORMAT WITH NO LEADING ZEROS. AS IN 
DATA ERRORS, STATUS ERRORS ARE PRECEEDED BY HEADER 
DESCRIBING THE HARDWARE UNDER TEST, THE BLOCKING 

: INFORMATION, AND THE ERROR TYPE. 


FUERA ARATE AAA EAE EAE EAE EAAAARARAAEAREKAREARRAEEKAEE 


017406 013703 000556 FMCNT.R3 :GET FRAME COUNT 
000001 B #1,R3 SEE IF ODD 
:1F NOT: BR 
BUMP COUNT 


E R3 
000020 000552 SEE IF CORE DUMP 
EROB :1F NOT: BR 
R3 SET TO FC/2 
000010 000672 EROB: SEE IF WRITE OP 
ER1 : IF SO: BR 
010000 000562 1 + aaa 


033464 #RDATA,R3 
000002 #2,R3 ;SET POINTER 


B ER2 
033464 i ;BUILD EXPT READ ADDRESS 


B 
027456 ;BUILD EXPT WRITE ADDRESS 
021132 ;SAVE ADDRESS 
000007 7,R4 
021134 
CLEAR FLAGS 


160762 SEE IF ADDRESS OK 
;1F SO: BR 


il : 
021134 IN BAER SET BUS ADDRESS ERROR 
000010 000672 ER2A1: SEE IF WRITE OPER 
B ER2B 71F NOT: BR 
017550 005777 160742 ER2A: ;SEE IF FC=0 
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017554 001441 :1F SO: BR 
021142 :SET FC ERROR 


ER3 ++G 
000040 000672 : : SEE IF SPACE OPER 
ER2 :1F SO: BR 
000676 4 IF TM TIME 
SO: BR 


000556 FMCNT,RS 
R3 3R3 = EXPT RECORD SIZE 
160702 : R3,aFC :SEE IF +h EXPT 
ER3 sIF SO: 
021142 FCER :SET FC ERROR FLAG 
:++ 


ER3 3 
002000 000552 : #2000 ,UDES sSEE IF PE 

ER2A :1F SO: BR 
010000 000562 #10000 ,RDCMD SEE IF READ REVERSE 
ER2E SO: BR 


000002 
:LOOK FOR EXPT = 2 


000001 
ER2C :GO CHECK FC FOR TM 
160000 160622 : ee SEE IF COUNT ERROR 


160624 acs,R3 :GET CONT STATUS REG 

000307 #307,R3 sMASK OUT IR,OR,UNIT NO. 
R3 ;SEE IF ANY OTHER ERRORS 
ER3A IF NOT: BR 

000676 TMFLG ;SEE IF TAPE MARK TIME 
ER38 :1F NOT: BR 

001000 #1000,R3 MASK MISSED TRANS 
R3 ;SEE IF ANY OTHER ERRORS 
ER3B :1F SO: BR 

060000 160560 : #60000 ,aC1 ;SEE IF EITHER TRE OR MCPE 

ER4 :1F NOT: BR 


000676 sSEE IF TM TIME 

31F NOT: BR 
160560 GET ERROR REGISTER 
000010 000552 ;SEE IF EVEN PARITY 

; : BR 
000100 
001000 : FCE 

E :1F NO ERRORS wort FCE: BR 

021136 : C ;SET CONT ERROR FLAG 
040000 160522 : oe : : = ERROR 

. : BR 
000676 . TAPE MARK TIME 

: T: BR 


160510 


000010 000552 EVEN PARITY 
: T: BR 


000100 81 ;MASK PAR 
001000 : :MASK OUT FCE 
8 3**G &@ BR IF NO OTHER ERR BITS ARE SET 
021140 : DRVER SET DRIVER ERROR FLAG 
020042 002000 000552 : #2000, UDES 
020050 001071 ERPT :1f IN PE MODE: BR 
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032777 


104000 


020000 
000040 
000676 
015536 


160366 
177000 
015536 


021146 
160350 


000400 
177000 
015540 


021150 
021144 
010000 
021144 


000722 
021134 


021076 
000706 
160224 
002000 


000002 
000702 
000602 
000002 
000670 


022730 
000652 


MACY11 30A(1052) 


160526 
000672 


021154 
021152 


015540 
000552 


000562 


000722 
160276 


000712 


021140 


ERG6A: 


ER?7: 


ER10: 


ERPT: 


ERPTT: 


ERPTG: 


ERPTG1: 


ERPTO: 
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TTOUTT 


#20000 ,aswr 
ERPT 


E 
EXCRC,CRCSV 
EXLRC,LRCSV 
EXCRC 
#23,EXLRC 
#60,UDES 


E 
at — 
#10000, »ROCMD 


@ER,ERSAV 
#2000 ,aSWR 
ERPT 


PC,PAPRT 
EMADDR ,R4 


SEQ 0092 


SEE IF NO DATA CHECK 

;1F NOT: BR (ALLOW READ OF UNKNOWN TAPES) 
TF eet IF Ba So OR READ OP 

; SEE i _TAPE MARK TIME 

IF NOT: BR 

7 SAVE CRC 

SAVE LRC 


SET CRC/LRC FOR TM 
SEE IF FORMAT 14 
If NOT: BR 

GET CRC CHARACTER 


IF CRC GOOD: BR 
SET ERROR FLAG 
GET LRC 


IF LRC GOOD: BR 
;SAVE ACTUAL LRC 
SET LRC ERROR FLAG 
;SEE IF READ REVERSE 
;1F NOT: BR 


N 
sELSE CLEAR LRC ERROR 
; CLEAR ERROR FLAG 


;SEE IF ANY ERROR 
SO: BR 


SET ERROR FLAG 
SAVE ERROR REGISTER 
;SEE IF PRINT 

IF SO: BR 

;SEE IF READ RETRY 
:1F NOT: BR 


;BUMP RETRY COUNT 
SEE IF LAST RETRY 


:1F SO: BR 

:SEE IF TM STATUS ERROR 
:1F SO: BR 

;PRINT HEADER 

PRINT ERROR TYPE 


aon 
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020370 004737 021156 
000676 


026164 
026202 
021136 
025205 
160050 
025232 
160044 
021140 
025240 
160024 
025245 
160012 
021134 
025220 
157760 
000255 
021132 
021142 
025225 
157720 
025213 
157700 
021146 
026227 


157674 
177000 


000255 
020650 004737 023662 
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000652 


000636 


000636 
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PC, FRPRT ;PRINT 
TMFLG 


ERPT1 

ot -EMADDR 
#ASG56,R4 ;PRINT 
CONER 


ERPT2 ; IF NO 
#ASG23,R4 
;PRINT 


aC1,R3 
;PRINT 
#ASG23D,R4 ;PRINT 


acs,R3 
;PRINT 
DRVER 


ERPT3 zIF SO 
#ASG23E.R4 
;PRINT 


ads ,R3 

;PRINT 
#MSG23F R4 

:PRINT 
@ER,R3 

;PRINT 
BAER 
ERPT4 ;1F NO 
#MSG23B.R4 

;PRINT 
aBA,R3 

;PRINT 
#255,T0B 
PC,10G ;PRINT 
CADER,R3 

;PRINT 
FCER 


ERPTS :1F NO 
#MSG23C,R4 
;PRINT 


aFC,R3 

;PRINT 
#MSG23A,R4 

:PRINT 


awC,R3 
:PRINT 


CRCER 
ERPTSA 7 IF NO 
#MSG58,R4 

;PRINT 


acc,R3 
#177000,R3 


:PRINT 
#255, TOB 
PC,T0G 


SEQ 0093 


TA 


CONT ERROR: BR 
C1 TAG 

CONTROL 1 

CS TAG 

CONT STATUS 
DRIVE ERROR: BR 
DS TAG 

DRIVE STATUS 
ER TAG 

DRIVE ERROR 

BA ERROR: BR 
BA TAG 

BUS ADDRESS 

/ 

EXPT BUS ADDRESS 
FC ERROR: BR 
FC TAG 

FRAME COUNT 

WC TAG 

WORD COUNT 

CRC ERROR: BR 
CRC TAG 


ACTUAL CRC 





Ci 
Ci 
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4355 021146 


013703 


000000 


015536 
021144 
026235 
021150 
000255 
023662 
015540 
021140 
002000 
157556 
075477 
025257 
157540 
177000 
100000 


000670 
002000 
020352 


000510 
000100 
000552 
000040 
000676 


021154 
021152 


MACY11 30A(1052) 


000636 


000552 


157600 


157560 


157442 


157444 
000672 


ERPTSA: 


ERPT6: 


ERPT7: 
ERPXO: 


ERPX: 


ERPX1: 


ERPX2: 
CADER: 
BAER: 

CONER: 
DRVER: 
FCER: 

LRCER: 
CRCER: 


Dd 
16-MAY-78 09:48 


EXCRC,R3 
LRCER 
ERPT6 
#ASG59,R4 


ACTLRC,R3 


EXLRC,R3 
DRVER 
ERPT7 
#2000 ,UDES 
ERPT? 
@ER,R4 
#75477 ,R4 
R4 

ERPT7 
#MSG23H,R4 


acc,R3 
#177000,R3 


#100000 ,aswrR 
ERPX 


PFLG 

ERPX 
#2000, aSWR 
ER 


R4 

#100, (R4) 
UDES ,ace 
#40,MTC1 
ERPX2 

TMFLG 
ERPX2 
CRCSV,EXCRC 
lena 


8 
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SEQ 0094 


PRINT EXPECTED CRC 
: IF NO LRC ERROR: BR 
PRINT LRC TAG 
PRINT ACTUAL LRC 


PRINT EXPECTED LRC 

:1F NO DRIVE ERROR: BR 

:1F NO PE: BR 

:MASK OUT ALL BUT BITS 15,10,7,6 
:1F NO CONDITIONALS SET: BR 
PRINT CC TAG 


sMASK CC 
sPRINT CHECK CHARACTERS 


;SEE IF STOP ON ERROR 
7; 1F NOT: BR 


SEE IF HAVE PRINTED 
:1F SO: BR 

sSEE IF _SHOULD PRINT 
:1F NOT: BR 

;PRINT ERROR 

DRIVE CLEAR 

CLEAR AS 

sRESET TRE 

sRESET TC 

7; 1F NOT READ/WRITE OP: BR 
: IF NOT TM TIME: BR 
RESTORE CRC 
RESTORE LRC 


sEXIT 
EXPT ADDRESS SAVE 


C2 
C2 
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021150 000000 ACTLRC: 
021152 000000 LRCSV: 0 
021154 000000 CRCSV: 0 


FRR AAEE REAR AREA RARER RARER ERAAARKEERAREEEEE 


:F FOR FORWARD/R FOR REVERSE PRINT SUBROUTINE: 


THIS SUBROUTINE IS USED TO PRINT OUT THE 

; TAPE DIRECTION USED WHEN ANY ERROR IS 
;DETECTED IN STATUS OF READ OR WRITE, DATA, OR 
SPACING OPERATIONS. 


FRAT AAA ARATE TERE REAR EKEKAAEKEKKEEKEEKEE 


021156 032737 000010 000672 FRPRT: #10,MTC1 7 SEE a, WRITE COMMAND 
021164 001413 B FREX If BR 

021166 032737 000002 000672 #2,MTC1 SEE. 1 REVERSE 
021174 001404 FRO :1F NOT: BR 

021176 012704 025115 #MSG17,R4 

021202 104000 PRINT R 

021204 000403 FREX 

021206 012704 025112 : #MSG16,R4 

021212 104000 ;PRINT F 

021214 000207 : PC sEXIT 
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FERRARA RARER ATER AEE AERA REREREREKREKRAAREAAAEAARAEEEE 


; TAPE COMMAND EXECUTE SUBROUTINE: - 


THIS SUBROUTINE IS USED TO EXECUTE THE 

;MAG TAPE COMMAND DESCRIBED BY THE READ 

OR WRITE ROUTINE. THE FINAL COMMAND IS 

;SENT TO THE DEVICE REGISTER ALONG WITH THE 

; INTERRUPT ENABLE AND GO BITS. 

ONCE THE COMMAND IS ISSUED, AN INTERRUPT 

: TIMER IS STARTED AND IF NO INTERRUPT IS RETURNED 
;BEFORE TIME OUT OCCURS, AN ERROR WILL BE 

PRINTED AND THE PROGRAM STOPPED. TESTING MAY 

:BE RESUMED BY PRESSING THE CONTINUE SWITCH. 

:TWO INTERRUPT HANDLERS ARE USED, ONE FOR MAG TAPE 
sAND ANOTHER FOR TELETYPE (TTY). 

:UPON RECEIPT OF A MAG TAPE INTERRUPT, HOUSEKEEPING 
:1S PERFORMED AND CONTROL RETURNED TO THE CALLING 
ROUTINE (READ,WRITE,ETC). 

RECEIPT OF A TTY INTERRUPT WILL CAUSE THE 

;PROGRAM TO CHECK FOR ENTRY OF A CNTRL C CHARACTER. 
:1F NOT CNTRL C, THEN CONTINUATION OF WAIT FOR MAG 
: TAPE INTERRUPT IS RETURNED. IF, HOWEVER, THE TTY 
: INTERRUPT WAS CAUSED BY ENTRY OF A CNTRL C, 

THEN AT THIS TIME REQUESTS FOR NEW STALL VALUES 
zARE PRINTED AND THE RESPONSES ENTERED. RESUMPTION 
OF TAPE INTERRUPT WAIT IS THEN RESUMED. 


FERRARA AAA AERA AAA AEA AEE EERE AKKRKAKKKKEEE 


021216 005037 000642 TEMP1 
021222 000550 157270 DVN,aCcS SET DRIVE NO. 
021230 010000 157264 : #10000,a0S ;SEE IF HAVE MOL 
TAPG3 :1F SO: BR 
000642 TEMP) ;SEE IF TIMED OUT 
TAPGO sWAIT FOR READY 
022730 PC,PAPRT PRINT CYCLE NUMBER 
000010 000672 #10,MTC1 ;SEE IF WRITE OP 
TAPG1 IF NOT: BR 
024754 0 #MSG5,R4 
PRINT WRITE ERR 


TAPG2 
024761 : MO #MSG6,R4 


;PRINT READ ERR 
021156 PC, FRPRT ;PRINT F OR R 


025335 2 #MSG25,R4 
PRINT NO MOL ERR 


020000 157200 : #20000,aDS ;SEE IF PIP RESET 
TAPG3F :1F SO: BR 
022730 PC,PAPRT PRINT HEADER 


027314 0 #MSG116,R4 
PRINT REWINDING MESSAGE 
020000 157156 1$: BIT #20000,a0S 
1$ AWAIT PIP RESET 


B 
000026 000672 TAPG3F: #26,MTC1 SEE IF WRITE TM 
021354 001003 TAPG3A :1F NOT: BR 





Sr ee ee Se 
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CZTUAH.P11 
021356 


021624 


012704 


000137 


177777 


000556 
000001 


000020 


157066 
000011 
157060 
000566 
000040 
000003 
000672 
177707 
000030 


177740 
000101 


000672 


000642 
000666 


000340 
002000 


022730 
000652 


021156 
025315 


156766 


921716 


MACY11 30A(1052) 


000552 


157056 
157056 
000672 
157050 


000666 
000672 


156762 


B 
TAPG3A: 
B 


TAPG3B: 


TAPG3C: 


TAPG3D: 


TAPG3E: 
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#-1,R4 sELSE SET FC FOR -1 
TAPG3B 

FMCNT,RG 

TAPG3B 

RG 


R4 SET WC = FC/2 FOR NORMAL FORMAT 
#20,UDES SEE IF CORE DUMP FORMAT 
TAPG3SC :1F NOT: BR 


R4 ;SET WC = FC/4 FOR CORE DUMP 
R4,awC SET WORD COUNT 
DRIVE CLEAR 
RESET FC LOADED 
;SEE IF INTERCHANGE READ 
: IF NOT: BR 
:SEE IF READ oP 
:1F NOT: BR 
7 SET INTERCHANGE READ MAINT. MODE 
GET COMMAND 
#177707, R4 MASK OP CODE 
#30,R4 ;SEE IF SPACE OP CODE 
TAPG3E :1F SO: BR 
#~-40,STAL SET INTERRUPT DELAY MULT TO 40 
#101,MTC1 ;SET INTERRUPT ENABLE AND GO 


MTC1,aC1 sEXECUTE COMMAND 
aPSwW ; CLEAR PRIORITY 


;SEE IF HAVE TIMED OUT 
NOT: BR 


:D0 TIME DELAY MULTIPLIER 
#340 ,aPSw ;RESET PRIORITY 
#2000, @SWR SEE IF SHOULD PRINT ERRORS 
TAPG6 :1F NOT: BR 
PC,PAPRT PRINT CYCLE NUMBER 


EMADDR,R4 
;PRINT ERROR OP 
PC,FRPRT ;PRINT F OR R 


#MSG24,R4 
PRINT NO INTERRUPT 
roe :++G BRANCH IF CONTINUE ON ERROR 


MTINTA RETURN TO CALLING ROUTINE 
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TTY INTERRUPT HANDLER*ttteeeece 


021630 012777 000340 156746 TTINT: #340,aPSW sRESET PSW 
156750 aTKB,-(SP) ;*+G GET CHARACTER 
000200 #200, (SP) 3+*#G STRIP PARITY BIT 
000003 ’ :*##G SEE IF CONT C 
:IF SO: BR 
000007 4 . :**G CHECK FOR CNTL G 


000176 000606 #SWREG, SWR i1S y ty SWITCH REGISTER USED 
RETURN :NO, GET OUT 
024444 PC,CNTG :GO CHANGE SWREG 
021676 000404 RETURN 3436 GO TO EXIT 


021700 010046 TTINTO: RO,-(SP) 3+#+#G SAVE ROC(REC CNTR) 
021702 004737 013774 J PC, TINP4 ;GO GET STALL VALUES 
021706 012600 (SP)+,RO 3+#G RESTORE RO(REC CNTR) 
021710 005726 RETURN: (SP)+ 3++#G POP CHAR OFF STACK 
021712 000002 R ; RETURN 


3MAG TAPE INTERRUPT HANDLER*tttetenee 


MAMMAAMAMAM 


021714 000240 MTINT: NOP 

021716 042777 000037 156610 MTINTA: BIC #37,aMR ;CLEAR MAINT MODE 
021724 013716 000662 MOV RTRN, (SP) :+*G GET RETURN ADDRESS 
021730 000002 RTI :++#G RETURN 
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FERRARA TAA eee eee eee eet 


AUTO SEQUENCE 


THIS ROUTINE ,ENTERED VIA STARTING ADDRESS 240 

WILL EXERCISE ALL AVAILABLE SLAVES ON ALL AVAILABLE 
;DRIVES IN BOTH PE AND NRZ ACCORDING TO THE PRESELECTED 
TEST PLAN. IF NRZ ONLY, PE TESTING WILL NOT BE ATTEMPTED. 


FRRAAAAAATAAAAA AAA AAAARERAAARAKe eee eee 


021732 012704 027124 : 0 #MSG108,R4 
PRINT NRZ ONLY REQUEST 


000650 0 #NRZOF ,R5 SET ADDRESS OF FLAG 
1,R1 SET SIZE OF ENTRY 
SET UPPER LIMIT 
SET LOWER LIMIT 
:GO GET RESPONSE 
026721 0 #SG104,R4 
;REQUEST CONT OR NOT 


000742 0 #ASEQCE RS SET ADDRESS OF ENTRY 
1,R1 SET SIZE OF ENTRY 

7SET UPPER LIMIT 

;SET LOWER LIMIT 

:GO GET INPUT 

;CLEAR DRV NUM 

;GO SELECT HARDWARE CONFIGURATION 
000042 a#4e AUTO MODE? ++ C.W 

;BRANCH - IF NO ++ C.W 


1 
000001 000742 as ;SET AUTO SEQ FLAG ++ C.W 


;D0 AUTO SEQ TESTS ++ C.W 
PRINT DIVIDER 
PRINT TMO2 NUMBER 


026665 : OV #MSG101,R4 
026701 0 #MSG102,R4 
000736 ADRVN,R3 
PRINT TMO2 
026710 #MSG103,R4 
PRINT SLAVE HDR 


000746 2$: ;POINT TO START OF SLAVE TABLE 
0) ;SEE IF END 


;1F SO: BR 
(RO)+,R3 

;PRINT SLAVE TABLE 
ASEQ2 ;D0 ALL 


022360 ASEQ3: PC,AMOD1 :GO DO MODE 1(NRZ) 

022554 PC ,AMOD2 :GO DO MODE 2(PE) 

000007 000736 ASEQ4: #7, ADRVN SEE IF DONE ALL DRIVES 
ASEQX IF SO: BR 

000736 ADRVN ;BUMP DRIVE NUMBER 
ASEQ1 ; CONTINUE 

000742 ASEQX: ASEQCF ;CONTINUOUS AUTO SEQUENCE? ++ C.W 
1$ ;BRANCH ~- IF NO ++ C.W 

005100 TEND ;D0 ACT END OF PASS ++ C.W 

022152 000000 1$: 


MMIAM MAM Aa MMAAMAMA WAMAMWAMAMAMAMWAMAA 
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022266 
022270 


022356 


005037 


005200 
010077 


000207 


005156 


010000 


022122 
002007 
140010 


000746 
003040 
000006 
000736 


156246 
010000 


000642 
000007 


000642 
000642 


177777 


MACY11 30A(1052) 


156326 
156320 


156306 


000041 


156220 


005156 
005156 


REOTC 
TEMP1 
#40,aCs 
at at acs 


aot 

#10600, acs 
HRDS 

(spe 
ASEQ4 
#2007,R1 
#140010,R1 
HRDSO 

RO 

#UN1,R1 
CHNFLG 
HRDS2 
#6,08#41 
HRDS2 
ADRVN 
HRDS2 

RO 


RO,aC2 
#10000,a0S 
HRDS3 

TEMP 1 
RO,(R1)+ 
HRDS4 

RO 

HRDS2 

TEMP1 

HRDSO 
TEMP1,REOTC 
TEMP1 
TEMP1,REOTC 
#-1,(R1) 

PC 


J 8 
16-MAY-78 69:48 PAGE 100 


; SUBROUTINE TO SELECT AUTO SEQUENCE HARDWARE*#*eeee2 
;CLEAR EOT UNIT CNTR 


: INIT . 

:SET DRIVE 

READ DRIVE TYPE 

TEST FOR NON-EXISTANT DRIVE 
:I1F DRIVE AVAIL: BR 

;RESET STACK POINTER 

:GO SEE IF TRIED ALL DRIVES 
MASK SLAVE TYPE 

3*+G SEE IF TU16/TE16 TAPE 

7 1F NOT: BR 


;SET START OF SLAVE TABLE 
:+*#G BRANCH IF NOT IN CHAIN MODE 


BRANCH IF NOT LOADED VIA TMDP 
: BRANCH IF NOT DRIVE 0 


DO NOT TEST DRIVE 0 SLAVE 0 
IF TMDP CHAIN 
+ SELECT SLAVE 
IF _SLAVE AVAIL FOR TEST(MOL) 
:1F NOT: BR 
7 SET SLAVE FOUND FLAG 
;LOAD SLAVE TABLE 


7SEE IF DONE ALL SLAV7S 
:1F SO: BR 

sELSE BUMP SLAVE NUMBE 2 
CONTINUE SELECTION 


oe ll — ANY SLAVES 
SET NUMBER OF UNITS 


:SET EOT CNTR 
TERMINATE SLAVE TABLE 
;RETURN TO SEQ 


SEQ 0100 
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SUBROUTINE TO SELECT NRZ AUTO TEST MODEtteeaeeeee 


005037 000654 AMOD1: BLCNTR sASSURE BLOCK COUNTER IS 0 
000746 M #UN1,R1 ;GET START OF SLAVE TABLE 
001700 AMOD1A: : A pe ;SET ALL SLAVE TO NRZ,NORM,ODD 


;IF FILLED ALL SLAVES: BR 
B sELSE DO ALL 
AMOD1B: 


005172 J :GO REWIND ALL AVAIL SLAVES 
000740 SET NUMBER OF BLOCKS FOR MODE 1 
#-4000, FMCNT SET FC = 4000 
#100,RCNT SET REC CNTR = 100 
ADRVN,DVN :SELECT DRIVE 
000560 #1,PATRN ;SELECT PATTERN 1 
TMEX ASSURE NO TMK 
INTRF ASSURE NORMAL READ 
PC,STAUTO :GO DO AUTO MODE 1 
000560 #10,PATRN SELECT PATTERN 10 
PC,STAUTO ;GO DO PATTERN 10 
000560 #14,PATRN sSELECT PATTERN 14 
PC,STAUTO 
000650 NRZOF ;SEE IF NRZ ONLY 
AMOD1C IF NOT: BR 
177777 +=000740 #-1,ABLCNT FORCE TO EOT 
000624 1153624, RANBAS 
000626 M #32561, RANSAV RESET RANDOM DATA BASE 
000560 AMODIC: #-1,PATRN ;SELECT AUTO RANDOM DATA 
003414 PC,STAUTO 
022552 000207 PC RETURN TO SEQ 
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SUBROUTINE TO SELECT PE AUTO TEST MODE*teteneeee 
005737 003040 pelea oo BRANCH IF IN CHAIN MODE 


p++ 
000650 NRZOF ;SEE IF NRZ ONLY 
AMOD2X :1F SO: BR 
000654 1$: BLCNTR ;CLEAR BLOCK CNTR 
M #UN1,R1 ;SET START OF SLAVE TABLE 
AMOD2A: #1700, (R1) CLEAR NRZ 
002300 B #2300, (R1)+ ;SET TO PE NORM, ODD 
1 ;SEE IF END OF TABLE 
:1F SO: BR 


B ; CONTINUE 
AMOD2B: 


005172 J REWIND ALL SLAVES 

000740 #6, ABLCNT ;SET AUTO BLOCK COUNT 
#-4000,FMCNT SET FC = 4000 
#100,RCNT ;SET REC CNTR TO 100 

000560 #10,PATRN ;SELECT PATTERN 10 
PC,STAUTO :GO DO AUTO SEQ 

000560 #14,PATRN ;SELECT PATTERN 14 
PC,STAUTO 

000560 #15,PATRN SELECT PATTERN 15 
PC,STAUTO 

000740 #-1,ABLCNT FORCE TO END OF TAPE 


000560 #-1,PATRN :SELECT AUTO RANDOM DATA 
JSR PC,STAUTO 
022726 000207 AMOD2X: RTS PC ;RETURN TO SEQ 


003414 
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4669 

4670 FERRARA AAAAEAAAEE RARER AEE AAA AAA RAK AAA AAA R Ree Eee 
rec ;ERROR HEADER PRINT SUBROUTINE: 

4673 ;THIS ROUTINE IS USED TO PRINT OUT A HEADER 

4674 ;WITH EACH ERROR MESSAGE. THE PRINT IS IN TWO 
4675 ;LINES AND CONTAINS THE FOLLOWING INFORMATION. 
4676 ;LINE 1: DRIVE NO. SLAVE NO. DENSITY PARITY FORMAT 
4677 ;LINE 2: CURRENT BLOCK NUMBER, RECORD NUMBER IN 
4678 WHICH THE ERROR OCCURED PLUS THE TOTAL NUMBER 
4679 ;0F RECORDS IN THIS BLOCK, THE RECORD SIZE (NUMBER 
4680 ;0F CHARACTERS), AND THE ERROR TYPE (READ,WRITE, SPACE, ETC) 
4681 ;PLUS THE TAPE DIRECTION (FORWARD OR REVERSE). 
4682 ;ALL NUMBERS ARE IN OCTAL. 

4683 PUERREREAE EEA A AAA A HATE Ae eee eee eeeeeeeeeee eee 
4684 

4685 022730 012704 025032 PAPRT: MOV #MASG12,R4 

4686 022734 104000 TTOUTT ;PRINT DRIVE HEADER 

4687 022736 013703 000550 MOV DVN,R3 

4688 022742 104002 OCTPP ;PRINT DRIVE NUMBER 

4689 022744 012704 025016 MOV #MSG11,R4 

4690 022750 104000 TTOUTT ;PRINT UNIT HEADER 

4691 022752 013703 000552 MOV UDES ,R3 

4692 022756 042703 177770 BIC #177770,R3 

4693 022762 104002 OCTPP ;PRINT UNIT NUMBER 

4694 022764 012704 026243 MOV #MSG60,R4 

4695 022770 104000 TTOUTT ;PRINT DENSITY TAG 

4696 022772 013703 000552 MOV UDES ,R3 

4697 022776 000303 SWAB R 

4698 023000 042703 177770 BIC #177770,R3 

4699 023004 104002 OCTPP ;PRINT DENSITY 

4700 023006 012704 026247 MOV #MSG61,R4 

4701 023012 104000 TTOUTT PRINT PARITY TAG 

4702 023014 005003 CLR R3 

4703 023016 032737 000010 000552 BIT #10,UDES 

4704 023024 001402 BEQ PAPRTO 

4705 023026 012703 000001 MOV #1,R3 

4706 023032 104002 PAPRTO: OCTPP ;PRINT PARITY 

4707 023034 012704 026253 MOV #MSG62,R4 

4708 023040 104000 TTOUTT PRINT FORMAT TAG 

4709 023042 013703 000552 MOV UDES ,R3 

4710 023046 000241 CLC 

4711 023050 006003 ROR R3 

4712 023052 006003 ROR R3 

4713 023054 006003 ROR R3 ;PONTION FORMAT 

4714 023056 006003 ROR R3 

4715 023060 042703 177760 BIC #177760,R3 

4716 023064 104002 OCTPP ;PRINT FORMAT 

4717 023066 012704 024773 MOV #MSG8,R4 

4718 023072 104000 TTOUTT PRINT PATRN TAG 

4719 023074 032777 000400 155504 BIT #400 ,aSwWR ;SEE IF RANDOM DATA 

4720 023102 001406 BEQ PAPRTB :1F NOT: BR 

4721 023104 012737 000122 000636 PAPRTA: MOV #122,T0B 

4722 023112 004737 023662 JSR PC,TOG PRINT R 

4723 023116 000411 BR PAPRTD 


4724 023120 (105737 000734 PAPRTB: TST ASEQF ;SEE IF AUTO SEQ 
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023124 001403 PAPRTC :1F NOT: BR 
005737 000560 PATRN SEE IF “AUTO RANDOM 
100764 PAPRTA IF SO: BR 
000560 PAPRTC: PATRN,R3 
025046 PAPRID: #ASG13,R4 


000654 BLCNTR,R3 


:PRINT PATRN NUMBER 
;PRINT BLOCK NO. HEADER 
:PRINT NUMBER 
a :PRINT REC NO. HEADER 
000010 000672 6 :SEE IF WRITE OPERATION 
S 
010000 000562 #10000,RDCMD —_ SEE_IF READ REVERSE 
PAPRT3 IF SO: BR 
000554 PAPRT1: RCNT,R3 
000676 TMFLG :SEE IF TAPE MARK TIME 
PAPRT2 [IF SO: BR 
012260 000662 #B1,RTRN 


000712 


025054 #MSG14,R4 


:1F NOT BACK SPACE: BR 


s1F NOT RETRY: BR 
PAPRTY: 3 ;GET RECORD NUMBER 
PAPRT2: I 3 
PAPRT3: ;PRINT RECORD NUMBER 
000055 000636 ;LOAD DASH (-) 
023662 sPRINT DASH (-) 


000554 
PRINT RECORD COUNT 


024766 
PRINT RECORD SIZE HEADER 
000556 0 4 ch 3GET CHARACTER COUNT 


R3 ;REMOVE TWOS COMPLEMENT 
PRINT RECORD SIZE 
0233 000001 000664 #1, HDRFL SET HEADER FLAG 
023312 000207 PC ; RETURN 
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peteeeeeereeeerereeeeeeeceeeerererereeeeeeeeeeneterene 


RANDOM NUMBER GENERATOR SUBROUTINE: 


;THIS SUBROUTINE IS USED TO GENERATE THE RANDOM 
;NUMBERS REQUIRED FOR USE AS RANDOM DATA, 
RECORD COUNT, AND CHARACTER COUNT. 


seeteererereeerereeeeeeeereerererereneteeeeeeeeeteeene 


023314 000626 000624 RANG: RANSAV ,RANBAS 

023322 000624 000626 3 RANBAS,RANSAV ;GET NEW NUMBER 

023330 000626 RANSAV,R1 SEE IF NUMBER TOO BIG 
023334 RANG s1F SO: BR 

023336 000626 R2,RANSAV SEE IF NUMBER TOO SMALL 
023342 RANG z1F SO: BR 


023344 PC sEXIT 
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FRRAAAAAAERATAKAAAAHAAAAAAAAAARAEKERARARARAAAAAAAAAARERE 


TTY ENTRY SUBROUTINE: 


THIS SUBROUTINE IS USED BY THE TEST CONDITION 
ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
;AT THE TTY AND CHECK THEM FOR LEGALITY AND 
LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
:(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
; THE CALLING ROUTINE. 

:I1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
zA QUESTION MARK IS TYPED (?) AND THE RESPONSE 
MAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
;MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
: CARRIAGE RETURN 


Oe SPST SSSI IS IST lili litititiiiiriiititiiiitititiiiiiy) 
023346 005037 000642 : TEMP1 ;CLEAR FIRST CHARACTER FLAG 


RO 
: :GO READ CHARACTER 
000015 000640 C Abe T18 + be a CR 
000642 SEE IF FIRST CHARACTER 
1F SO: BR 
B 2 :*##G ELSE GO LOAD VALUE 
000060 000640 : :##G SEE IF CHAR IS LESS THAN 0 
:1F NOT: BR 
:+#G ELSE GO TO ERROR 


8 

000070 000640 : 7+#G SEE IF CHAR IS GREATER THAN 7 
B ;1F NOT: BR 
B 3++G ELSE GO TO ERROR 

000642 : SET FIRST CHARACTER FLAG 


SHIFT 3 LEFT 


RO 
177770 000640 . STRIP ASCII 
000640 TIB,RO ;LOAD CHARACTER 
1 SEE IF DONE 

:1F NOT: BR 

SEE IF EXCEEDED MAXIMUM LIMIT 

IF NOT: BR 
3++G ELSE GO TO ERROR 
;SEE IF BELOW MINIMUM LIMIT 
:1F NOT: BR 
:++G ELSE GO TO ERROR 
;LOAD VALUE 


: PC 
025755 : OV #MSG43,R4 
;PRINT? 


000020 S #20, (SP) RESET SP TO START OF VALUE ROUTINE 
023504 000207 PC REDO VALUE ENTRY 
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023550 


023552 


023660 
023662 


023722 


005277 


000734 
105777 


000713 


155076 
155072 


155066 
000200 
155054 


000640 


000636 
000043 


000045 
000041 
023662 
000015 
023662 
000006 


000636 
023662 


000012 
023662 
154726 
000636 
000002 


000007 
023662 


MACY11 


000640 
000640 


155046 


000636 
000636 
000636 


000636 


000636 


154720 


000636 





d. 9 
30A(1052) 16-MAY-78 09:48 PAGE 107 SEQ 0107 


sTTY READ SUBROUTINE teeerereee 


3++#G STRIP PARITY BIT 


OUTPUT SUBROUTINE tteeeeeareee 
(R4)+,TOB 


D0 BELL 


TCRLF: 


M 
TCRLFA: 
J 





:D0 FILLERS 


TOG 
TOB,aTPB 
PC 

#2,R3 
#7,T0B 
PC,T0G 
R3 


TBELA 
TTOUT 


gy. 
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ZOCTAL OUTPUT SUBROUTINE ttteteeeeene 
005037 024156 OCTP: : L ;CLEAR FLAG FOR LEADING ZERO 
000001 024156 OCTPE: 
OCTPE1: 3 ;SEE IF NUMBER IS ZERO 

:1f NOT ZERO: BR 

024156 
OCTPO 

024136 AT sELSE PRINT ZERO 


B OCTP3 :+#G SPACE AND EXIT 
100000 : — ;SEE IF MSD = 1 


IF NOT: BR 
000001 


024114 ;PRINT 1 
024010 2 


g R4 
024114 J ;PRINT 0 
R3.R4 


;POSITION DIGIT 


R4 
024114 F PRINT DIGIT 2 
3,R4 


R4 
024114 PRINT DIGIT 3 
3,R4 


4 
024114 PRINT DIGIT 4 
R3,R4 


024114 
R3,R 
024114 J ;PRINT DIGIT 5 
000240 000636 OCTP3: 
023662 at oy SPACE 
sEX 
177770 OCTPG: 
024156 
024156 OCT°GO: 
000260 OCTPG1: 


000636 
023662 


024156 000000 : 0 FIRST CHAR FLAG 
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sDATA CHARACTER OUTPUT SUBROUTINE t##teeneeeee 
005037 000636 TOB 

000010 M #10,R4 ;SET NUMBER TO PRINT 
000636 R3,108 
154414 : aTPs 

DOUT1 
000200 000636 #200,T0B 
000636 TOB 

DOUT2 
000061 154372 = 

0 


DOU 
000060 154362 : #060,aTPB 
000636 : TOB 


R4 

DOUT1 

PC 
000646 : + talc 
024160 PC ,DOUT 
000646 TEMP3,R3 
024160 PC ,DOUT 

024270 000207 PC 
TU16/TE16 SERIAL NUMBER PRINT SUBROUTINE ***e%* 


024272 010304 


024350 -e PRINT FIRST DIGIT 


4 
024350 We PRINT SECOND DIGIT 


024350 oa °ne PRINT THIRD DIGIT 
024350 ; te FOURTH DIGIT 


R sEXI 
00026 000636 SNPG: 260 ;SET NUMBER BASE 
177760 B #177760,R4 ;MASK NUMBER 
000636 R4,T0B ;BUILD DIGIT 
023662 PC,T0G :GO TYPE 
024372 000207 PC ; RETURN 


CHECK SWITCH REGISTER ROUTINE. CHECKS FOR G TO ALLOW CHANGING 
;OF LOC.176. 
CALL IS BY WAY OF CKSWRR 
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;LOCATIONS USED: 
024374 000000 b » 


000176 000606 ; CAP SOFTWARE SWITCH REG PRESENT 
B T NO, GET OUT 
154172 YES, WAIT FOR 
READY, GET CHARACTER 
154166 000640 1B AND STRIP OFF 
177600 000640 #177600,TIB ; THE GARBAGE 
000007 000640 #7,T18 :1S IT A < @ 


B OUT 
027430 : +4 #SCNTG,R4 
027434 : rte #SMSWR,R4 


154122 aSwWR,R3 
023732 PC ,OCTPE 
027443 Vv #SMNEW ,R4 


024374 : TEMPST 
000007 024376 M #7, COUNT 
;G0 wy A CHARACTER 
U? 


000025 000640 #25,T1B :1S ITA 
2s :BRANCH IF NOT 
5 U :START OVER 
000015 000640 : CMPB + ha 31S IT A <CR>? 


BRANCH IF NOT 
000200 024400 #200, RDSW 
027453 0 #MCRLF RG 


000007 024376 CM #7, COUNT sWAS IT FIRST CHARACTER 
7$ +e ages IF NOT FIRST ONE 
GET OU 


OUT 
000060 000640 : ain 
000067 000640 oe 
025755 : OV #MSG43,R4 


3$ START OVER IF NOT LEGAL CHARACTER 
024374 : TEMPST 
TEMPST 
TEMPST 
000640 #60,TIB ;GET NITTY-GRITTY 
024374 TIB, TEMPST 
024376 — ;ONLY WANT 6 DIGITS 


1$ 
024374 153726 : TEMPST,@SWR CHANGE SWITCH REGISTER CONTENTS 
024660 000207 TS PC RETURN TO BODY OF PROGRAM 
HALT HANDLER*tttteeeeee 


024662 000000 >: HALT 
024664 104004 CKSWRR CHECK FOR CONTROL G 
024666 000207 RTS PC 





S 
Ss 
Ss 
S: 
T 
V 
0 
a 
0 
0 
0 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
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TRAP HANDLERetteeeereeeee 


024670 016677 000002 153706 TRAP30: MOV 2(6) ,aPSw ;ADJUST PSW 
000002 M asP,2(6) ;PLACE RETURN ADDRESS OVER PSW 
000002 sith 3 ;SUB. 2 FROM RETURN ADDRESS 
+,- 
120716 #TABLE-104000,aSP :GET SUBROUTINE STARTING ADDRESS 
a(SP)+,PC ;G0 TO SUBROUTINE 


024726 T 
TTOUTT= 
OCTPP= 
CKSWRR= 
STOPP= 
104010 TTINN= 104010 
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ZERROR MESSAGEStetereeeeee 
024730 042052 020105 043 > ASCII /*DE #/ 
024735 045 035507 021440 > ASCII /2G; #/ 
024742 041045 020073 043 > ASCII /%B; #/ 
024747 045 047103 021440 : ASCII /ZCN #/ 
024754 053452 020105 043 > ASCII = /*WE #/ 
024761 052 042522 021440 > «ASCII =/*RE #/ 
024766 051052 020123 043 > ASCII = /*RS #/ 
024773 052 040520 051124 : ASCII = /*PATRN #/ 
047123 020072 > ASCII / SN: #/ 
025011 042523 021440 >: «ASCII /*SE #/ 


025016 051452 040514 042526 : .ASCII /*SLAVE NO. #/ 
025024 047040 027117 021440 


025032 042045 044522 042526 >: .ASCII /2O0RIVE NO. #/ 
025040 047040 027117 021440 


025046 025045 047102 021440 : ASCII /2*BN #/ 

025054 051052 020116 043 >: .ASCII /*RN #/ 

025061 045 020041 020040 : .ASCII /%! BAD RECORD2Z24/ 
025066 020040 020040 

025074 041040 042101 

025102 041505 051117 022504 

025110 021445 

025112 043040 043 i / FaH/ 

025115 040 021522 bs / R#/ 


025120 020041 047505 020124 tis /! EOT NO: #/ 
025126 047516 020072 043 


025133 0 047111 042524 _ /RINTERCHANGE READ = #/ 
025140 040510 043516 

025146 042522 042101 

025154 036440 021440 


025160 020445 046111 042514 hiv. /&!ILLEGAL BOT: HALT2#/ 
047502 
046101 


MOAMAMMA AAA VIA a UU 
MRRP — SS es os = © 
WMH SO OCONAUSWwrH-oOOo 


025202 022524 
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025205 045 051503 020061 MSG23: .ASCII /%CS1 #/ 

025212 043 

025213 045 041527 021440 MSG23A: .ASCII /%WC #/ 

025220 041045 020101 043 MSG23B: .ASCII /2BA #/ 

025225 045 041506 021440 MSG23C: .ASCII /2FC #/ 

025232 041445 031123 021440 MSG23D: .ASCII /%CS2 #/ 

025240 042045 020123 043 MSG23E: .ASCII /20S #/ 

025245 045 051105 021440 MSG23F: .ASCII /2ZER #/ 

025252 040445 020123 043 MSG23G: .ASCII /2ZAS #/ 

025257 045 045503 021440 MSG23H: .ASCII /2CK #/ 

025264 042045 020102 043 MSG23I1: .ASCII /%0B #/ 

025271 045 051115 021440 MSG23J: .ASCII /2MR #/ 

025276 042045 020124 043 MSG23K: .ASCII /20T #/ 

025303 045 041524 021440 MSG23L: .ASCII /2TC #/ 

025310 051445 020116 043 MSG23M: .ASCII /2SN #/ 

025315 045 047041 020117 MSG24: .ASCII /%!NO INTERRUPT24/ 
025380 050125 022504 O43 

025335 045 047041 020117 MSG25: . /%!NO MOL: HALT2Z#/ 
025350 046101 O22526 04S 


025355 045 051104 950117 MSG26: . /%ZDROPS: #/ 
025362 035123 021440 


025366 050045 041511 051513 MSG27: . /RPICKS: #/ 
025374 020072 3 


025377 043 MSG28: . /%#/ 
030115 MSG30: . "SZTMO2-TU16/TE16 AUTO SEQUENCE (CZTUAHO) Za 


030110 022451 


041445 052132 Pw "ZZCZTUAHO TMO2-TU16/TE16 RELIABZ24' 
030110 052040 
025466 030115 026462 052524 





CZTUAHO TMO2-TU16/TE16 RELIAB 
26-APR-78 09:51 


CZTUAH.P11 


025474 
025502 
025510 


025515 
025522 
025530 


025536 
025544 


025552 
025560 


025565 
025572 
025600 


025606 
025614 
025622 
025630 


025632 


025716 


025723 
025730 


025735 
025742 
025750 
025755 
025761 
025766 
025774 
026002 


026010 
026016 


026022 
026027 


033061 
020066 
041101 

045 
020105 
051105 


042045 
054524 


050045 
020131 


045 
042122 
052116 


041445 


021440 
050045 


020104 
045 
020105 
045 
040440 
020104 
045 
045 
020122 
042514 
046114 


042445 
052115 


043045 
045 


052057 
042522 
022445 


046123 
052516 
036440 


047105 
036440 


051101 
020075 


042522 
041440 
036440 


040510 


051105 
052116 


052101 
047040 
020122 


044523 


020075 


051127 
020075 


052524 
047522 
020075 
022477 
047105 
047531 
051440 
036440 


051122 
021440 


020103 
040503 


kK 9 
MACY11 30A(1052) 16-MAY-78 09:48 PAGE 


030505 
044514 
043 


053101 
041115 
021440 


044523 
021440 


052111 
043 


047503 
052517 
021440 
040522 


041440 
036440 


042524 
046525 
020075 


043516 
051501 


043 
042524 
046101 
040505 

043 
052111 

043 
047122 
047125 

043 

043 


042524 


021440 
040440 


043 
021440 


/%SLAVE NUMBER 


/ZDENSITY = #/ 


/ZPARITY = #/ 


/ZRECORD COUNT 


/ZCHARACTER COUNT = #/ 


/ZPATTERN NUMBER = #/ 


/ZSINGLE PASS = #/ 


/ZENTER STALLSZREAD = #/ 


/2WRITE = #/ 


/%TURN AROUND = #/ 


/22%8/ 
/RENTER YOZZLE STALL = #/ 


/ZERR AMT #/ 


/2FC #/ 
/2CA #/ 


SEQ 0114 





ee. 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 115 SEQ 0115 
CZTUAH.P11 26-APR-78 09:51 


026034 020445 047516 041040 MSG48: .ASCII /%!NO BOT ON REWIND: HALTZ4/ 
047440 6 
044527 
040510 052114 
021445 


047040 052117 040440 MSG49: .ASCII / NOT AVAIL #/ 
046111 021440 
046114 043505 MSG50: .ASCII / ILLEGAL DRIVE TYPE #/ 
042040 044522 
052040 050131 
043 


042045 044522 MSGS52: /ZZDRIVE NUMBER = #/ 
047040 046525 
020122 020075 

026150 


026151 045 047506 046522 MSG53: /ZFORMAT = #/ 
026156 036440 021440 


026164 053452 020105 046524 MSGS4: /*WE TM#/ 
026172 043 


026173 052 042523 052040 MSG55: /*SE TM#/ 
026200 021515 


026202 052040 021515 MSG56: / TM#/ 


026206 047040 047117 042455 MSG57: / NON~EXIST SLAVE#/ 
052123 051440 
042526 043 
051103 020103 MsSG58: /ZCRC #/ 


051114 020103 MSG59: /ELRC #/ 


020104 MSG60: /*D #/ 
020120 MSG61: /*P #/ 
026253 020106 MSG62: /*F #/ 


026257 047452 044522 MSG64: /%*ORIGINAL ERROR*#/ 
026264 040516 020114 

026272 047522 025122 

026300 


026301 045 042522 051124 MSG65: /EZRETRY: #/ 
026306 035131 021440 


026312 020452 042523 051040 MSG66: /*!SE RTRY #/ 
026320 051124 020131 043 


026325 052 042441 040522 MSG67: /*!ERASE#/ 
026332 042523 043 


026335 045 042522 042522 MSG68: /ZREREV: #/ 
026342 035126 021440 
026346 052045 050101 020105 MmsG69: /&ZTAPE MARK = #/ 





CZTUAHO TMO2-TU16/TE16 RELIAB 
26-APR-78 09:51 


CZTUAH.P11 


026354 
026362 


026364 


026772 


040515 
021440 


020445 


047514 


045522 


047516 


052122 
041505 


020072 
042441 


025052 
046524 
040514 

04" 
052501 
047117 


041505 


021527 


mn 9 
MACY11 30A(1052) 16-MAY-78 09:48 PAGE 116 


036440 


042040 
047522 
044527 
040510 


042455 
042040 


043 
053506 
051122 
044507 
051440 
036440 
047524 

043 
042522 
042127 
047117 
054522 
053440 
042440 
020072 
026516 
040531 
042522 
051122 
051105 


042116 
040520 


043 
025052 
022452 
031060 
042526 


047524 
035124 


053117 
3 


043122 


MSG70: 


MSG71: 


MSG7e: 
MSG73: 
MSG74: 


MSG75: 
MSG76: 
MSG77: 
MSG78: 


MSG79: 


MSG100: 


MSG101: 


MSG102: 
MSG103: 
MSG104: 


MSG105: 
MSG106: 


-ASCII 


-ASCII 
-ASCII 
-ASCII 
-ASCII 


-ASCII 


ASCII 


-ASCII 
-ASCII 
-ASCII 


«ASCII 
-ASCII 


/%!NO DRY FROM REWIND: HALT2#/ 


/ NON~EXIST DRIVE#/ 


/ZREFWD: #/ 
/RWTERR: #/ 
/ZREGISTER START = #/ 


/ZVECTOR = #/ 

/ZDEREV: #/ 

/EDEFWD: #/ 

/%Z!NON-RETRYABLE WRITE ERROR: ER #/ 


/%!NON-RETRYABLE READ ERROR: ER #/ 


/%!!END OF PASS %#/ 


/YoreneeeeeZs/ 


/*TMO2 #/ 
/*SLAVES #/ 
/%ZAUTO CONT: #/ 


/ZRECOVERED#/ 
/*!!BAD TAPE OVERFLOW#/ 


SEQ 0116 





nN 9 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 117 SEQ 0117 
CZTUAH.P11 26-APR-78 09:51 


5348 3 thay 051045 053505 og AH MSGI6A: .ASCII /2ZREWIND TAPE; RESTART AT BLOCK ONE#/ 


043 
5354 027041 045 020441 047125 MSG107: .ASCII /2%!!UNRECOVERABLE BAD SPOT/ 


5356 027054 040522 046102 020105 
5357 027062 040502 020104 050123 


5359 027072 041045 042101 051040 -ASCII /%BAD RECORD LEFT ON TAPEZ#/ 
5360 027100 041505 051117 020104 
5361 027106 042514 052106 047440 
5362 027114 020116 040524 042520 


5364 027124 047045 055122 047440 MSG108: .ASCII /2ZNRZ ONLY: #/ 

5365 027132 046116 035131 021440 

5366 027140 020452 050041 051517 MSG109: .ASCII /*!!POSITION LOST IN RETRY#/ 
5367 027146 052111 047511 020116 

5368 027154 047514 052123 044440 

5369 027162 020116 042522 051124 


5371 027172 051445 051525 042520 MSG110: .ASCII /%SUSPECT BAD TAPE#/ 
5372 027200 052103 041040 042101 

5373 027206 052040 050101 021505 

5374 027214 051045 050105 040505 MSG111: .ASCII /%REPEAT: #/ 


5376 027226 041040 042101 052040 MSG112: .ASCII / BAD TAPE SPOTS%Z#/ 
5377 027234 050101 020105 050123 
5378 027242 052117 022523 043 


5380 027247 045 051440 043117 MSG113: .ASCII /% SOFT: #/ 
5381 027254 035124 021440 


5383 027260 020045 040510 042122 MSG114: .ASCII /% HARD: #/ 
5384 927266 020072 043 


5386 027271 045 020441 040510 MSG115: .ASCII /%!!HARD READ ERROR#/ 
5387 027276 042122 051040 040505 
5388 027304 020104 051105 047522 


5390 027314 020445 047125 052111 MSG116: .ASCII /%!UNIT REWINDING: TEST WILL START AT BOT#/ 
5391 027322 051040 053505 047111 


043 
5397 027365 045 042522 047515 MSG120: .ASCII /%REMOVE TMDP FROM UNIT UNDER TEST2#/ 


5402 027422 042524 052123 021445 
5403 027430 057045 021507 SCNTG: .ASCII /% G#/ 





8 10 
CZTUAMO TRO2-TUIG/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 118 SEQ 0118 
CZTUAH.P11 26-APR-78 09:51 


tes vec | 051127 020075 SMSWR: .ASCII /ZSWR= #/ 
040 0470460 053505 SMNEW: .ASCII / WNEW= #/ 
020075 043 
027453 045 043 MCRLF: .ASCII /28/ 


027456 EVEN 
027456 000000 WDATA: 0 sWRITE BUFFER 


033464 .=.*4004 
033464 000000 RDATA: 0 ;READ BUFFER 


000001 - END 





C¢ 10 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 120 SEQ 0119 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


4617* 46318 4654¢ 6663 
43508 
4544 4556 4558* 4570 4585 


3211 3437 


{at 2707+ 3028* 4126 4275 
3910* 3917* 3920 3922* 3944* 
4038* 4062+ 

4041* 4055* 4064* 


1962* 4608* 4644* 4732 
4040+ 4056* 4058* 4069 


2133+ 2525+ 


2 
007276 25524 
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CZTUAHO TMO2-TUI6/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 121 SEQ 0120 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


007314 
25648 


2468 2470* 2471 2478 2528 2547 2555 2567* 2568 2574 
2069* 2552 


3045# 


4120* 4279 43498 
4322 


4640 


5037* 


000520 3215* 3223* 3225 3252* 3253" 4155 4259 4410* 4569* 4570* 


000510 2230* 2231* 2255* 3206 3224 3229 4153 4164 4255 4335* 
000542 2158* 2229% 2249% 2266* 3254 4341* 4589+ 


003000 





E 10 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 122 SEQ 0121 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


003002 


3839* 
3637« 


3498 3501 


3548 3553 3601 


3943 3951 3954 39564 
39648 
3832 3965+ 


016346 39104 





F 10 
CZTUAHO TMO2-TUI6/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 123 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


DERRGA 016506 


3955# 
3840 38424 
3829 
3830 


37804 


4955 4957 


40364 


4052# 


4046 4055 


4237 4261 4352# 
000522 2074 2232 2250 


2252 


2312 


SEQ 0122 


2366 





G 10 
CZTUAHO TMO2-TUI6/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 124 SEQ 0123 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


2717 2719 2725 2736 3038 4175 4427 4432 
3435¢ 


4571 
4410 4620* 4687 


2495* 2510* 2689* 3027* 3037" 3048* 4242 4247 


2316* 2317 2318 2402 2625 2646 2648* 2649* 
Lo 2795 2803 


4191 4199 4212 4216 42184 


4325# 
43348 


2437 2828 2862 2894 4220* 4228 
2507+ 


2969 3044 3055 4116 41204 


41534 
017722 41644 





H 10 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 125 


CZTUAH.P11 26-APR-78 09:51 
017760 


000516 
021142 


000632 
000556 


021214 


0 
025046 


CROSS REFERENCE TABLE -- USER SYMBOLS 


4167 41748 
4173 41758 


41968 4300 
4 4347* 
2697" 29148 


2755 2932 


3756 3778 


4476 


50974 


4346+ 
2942* 3031* 3049 


2942 2952 3099* 
3782 3790 3932 


4131 


3327* 
3936 


4141 


3328 
4101 


SEQ 0124 


4285 


3330 
4139 





1 10 
CZTUAHO TMO2-TUI6/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 126 SEQ 0125 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


025054 4734 50998 
51018 


026202 





1 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 127 


CZTUAH.P11 


PAPRTD 


000672 


021714 
021716 
000240 
011260 
000650 
023724 
023732 
023740 
024114 
024132 
024136 
104002 


023760 


022730 


023104 
023120 
023134 
023142 


26-APR-78 09:51 


4730# 


CROSS REFERENCE TABLE -- USER SYMBOLS 


2689 4421 
52714 


2838 52758 
2450 2850 


5317# 


2512 
4342 


2834 
4642 


50814 


2873 


2708+ 
4369 


2868 


52808 


2710+ 
4371 


28948 


4934# 


2164 
4241 


2917* 
4416 


29198 
4434 


2939* 
4453 


29418 
4456 


3050* 
4463 


SEQ 0126 





kK 10 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 128 
CROSS REFERENCE TABLE -- USER SYMBOLS 


CZTUAH.P11 


PAPRTY 023236 
PAPRTO 
PAPRT1 
PAPRT2 


012354 
000630 
007772 
033464 


011052 


26-APR-78 09:51 


3453 4621* 


34748 8 3776+ 
4329 4334* 


4633* 
3045 


28124 
3646+ 


28544 


4625* 


4773 
3116* 


4627* 


4774* 
3317 


4634* 


4657* 


4659 


SEQ 0127 


4661* 





L 10 
CZTUAHO TMO2-TUI6/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 129 SEQ 0128 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


011074 


2800 2811 


27258 


27664 


27848 


26808 


2627 2651 
005156 2152 2153* 2154* 2203 2219* 2220 2221* 2222* 3170* 
005056 3314* 4567+ 4600* 4602+ 


2882 4235 
4495 4497 45024 
002730 2039 2889+ 





CZTUAHO TMO2-TU16/TE16 ty 


CZTUAH.P11 
002670 


000702 
000662 


000706 
000540 


000666 
012304 


003222 


MACY11 30A(1052) 


2857* 


23918 
2891 
2859* 


2639 


M10 
16-MAY-78 09:48 PAGE 130 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2424 


2425 


2452 


27118 
2400+ 
2393* 


3405# 
2422 


4981# 


2076+ 
3052+ 
2618 


2456 


2462 


2920+ 
2415+ 
2485* 


2508+ 


2481 


29438 
2524* 


2234+ 
3079+ 
2790 


2482 2840* 


3033*  3051* 
2778* 2842+ 


2509* 


23523* 24938 
4468* 
2928 


2642+ 
3057 


2881* 


4746 


2841* 


2789+ 
30794 


SEQ 0129 





N 10 
CZTUAHO — TU16/TE16 RELIAB WMACY11 30A(1052) 16-MAY-78 09:48 PAGE 131 SEQ 0130 


CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 
STARTO 003174 1906 

START1 2083 

START2 19734 

STARTS 0036 1976# 

STARTS 19794 


STARTS 
2075 


19664 


1887 


3495*  3936* 3938+ 3939 
4465*  4466* 4592* 4598 


3284* 3414 3496* 3987* 3990 
000646 24608 2877 2879* 2994 3988+ 


5034* 
3 


005109 31860 





B11 
CZTUAHO TMO2-TUI6/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 132 SEQ 0131 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


023676 
000640 


rah 4817 4838* 4839* 4842 4999 5000* 5001 5014 


023472 48288 
000634 2175* 3166 


000676 { 2809* 2812+ 

000636 4856* 4859+ 
4983* 

023662 4873 4921 


000616 


TTOUT 
TTOUTT= 104000 





C 11 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 133 SEQ 0132 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


023346 3191 3200 3222 3240 3276 3288 3364 
ine 3393 3402 4526 4533 47984 


023354 


2248+ 


000746 2 
3247* 3250+ 


027456 3452 
006320 24008 


006336 





D 11 
CZTUAHO TMO2-TU16/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 134 SEQ 0133 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


006360 2407 24098 


000574 2323 3387 3389 
2024 2331* 2380* 2465+ 


23524 
3727 


a 
015534 3681* 3682+  3684* 3685 3689* 3697 3728 3729* 3730* 3731 
011274 2995 


2975 29798 


2986 2989 
21914 


SRE AD ae 
SSVPC = 000034 





— 11 
CZTUAHO TMO2-TUI6/TE16 RELIAB MACY11 30A(1052) 16-MAY-78 09:48 PAGE 135 
CZTUAH.P11 26-APR-78 09:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


. = 033466 14684 14704 1475 1476@ 14788 14808 14848 14918 14964 14998 1502 1508 15144 
1519# 15234 1722 1724 1726@ «17288 1730 17324 17348 17364 17384 17408 17428 


17448 8617466 17484 17508 1752 17598 17618 17638 17654 17674 17698 17718 17734 
1833 54104 54138 


SEQ 0134 


- ABS. 033466 000 


ERRORS DETECTED: 0 


DSKW: CZTUAH ,DSKW:CZTUAH.SEQ/SOL/NL: TOC=CZTUAH.SML/ML,CZTUAH.P11 
RUN-TIME: 6 12 2 SECONDS 

RUN-TIME RATIO: 131/21=6.1 

CORE USED: 13K (25 PAGES) 


DOCUMENT PAGES: 134 





